



















































































SVNTAX Årgang <£3 nr. 


INDHOLDSFORTEG¬ 
NELSE PÅ BÅND. 

Der må da være andre end mig der ik¬ 
ke bruger disketter, men gemmer pro¬ 
grammer på bånd? Selvfølgelig note¬ 
rer du altid ned hvad der er på dine 
bånd, men måske kender du en der har 
fundet nogle gamle bånd med ukendt 
indhold? Når man skriver CLOAD får 
man det første program som er gemt 
med CSAVE, men måske overser man et 
program som er gemt med SAVE eller 
en datafil. Eller noget som er gemt 
med BSAVE. Dette program viser nav¬ 
nene på alle filer af de tre typer 
på et bånd. Det er nemmest at få 
navnefortegnelsen på tryk ved at 
skrive LPRINT USR(O). Så kan du 
drikke aftente mens båndet kører og 
indholdsfortegnelsen bliver skrevet. 

Vi synes alle at det tager urimeligt 
lang tid at lagre data på bånd og 
hente dem igen. Officielt skal man 
ikke bruge 2400 baud med en almin¬ 
de lg kassettebåndoptager, men det 
virker jo alligevel! Jeg har haft 
gode resultater med at bruge krom¬ 
bånd på en billig kassettebåndopta¬ 
ger, som ikke er beregnet til krom¬ 
bånd. Netop derved fremhæves de høje 
frekvenser. 

Ved programmer som gemmes med SAVE 
og ved datafiler bruges en stor del 
af tiden til at skrive headere foran 
dataklumper på 256 bytes. Med 2400 
baud varer en enkelt header 1,65 
sek., medens det tager 1,2 sek. at 
skrive de 256 bytes. Uden problemer 
har jeg kunnet nedsætte headerlæng- 
den til næsten en trediedel. Header- 
længden for 2400 baud findes på 
adresse &HF405, og den er normalt 
31. Prøv først med POKE &HF405,11 


efterfulgt af SCREEN 0,0,0,2. Det 
kan nok spare kostbare minutter af 
din restlevetid ! 


10 'Dette program viser alle filer 
20 'på et bånd af typerne CLOAD, 

30 'BLOAD og LOAD. 

40 'Det kan placeres hvorsomhelst i 
50 'hukommelsen, bare der er plads 
60 'til de 142 bytes. 

70 'Skriv PRINT USR(0) for at se 
80 'filoversigten. Virker også med 
90 'LPRINT. 

100 DEFINT A-Z 

110 START - &HE000 ' Kan ændres ! 

120 DEFUSR = START 

130 FOR AD - START TO START + 141 

140 READ N: POKE AD,N 

150 NEXT 

1000 DATA 243,33,225,233,34,246,247 
1010 DATA 205,246,247,17,22,0,25,84 
1020 DATA 93,1,82,0,9,235,115,35,114 
1030 DATA 205,225,0,56,64,6,16,33,114 
1040 DATA 224,197,229,205,228,0,225 
1050 DATA 193,56,50,119,35,16,243,17 
1060 DATA 240,255,25,6,9,126,35,190 
1070 DATA 32,222,16,250,17,11,0,25,1 
1080 DATA 67,66,112,254,208,40,12,113 
1090 DATA 254,211,40,7,6,32,112,254 
1100 DATA 234,32,196,17,246,255,25 
1110 DATA 205,120,102,24,187,205,183 
1120 DATA 0,205,231,0,62,3,50,99,246 
1130 DATA 33,11,0,34,248,247,216,195 
1140 DATA 178,115,0,0,0,0,0,0,0,0,0,0 
1150 DATA 0,0,0,0,0,0,32,32,9,9,32,76 
1160 DATA 79,65,68,13,10,0 
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INDHOLDFORTEGNELSE 


OPLYSNINGER 


Indhold : 

side : 

isaasssas 

Indholdsfortegnelse på bånd 

2 

Oplysning og leder 

3 

Play direkte i data linier 

4-7 

Basic med Peter 

8 

Regression af Vitus Nilsen 

9-12 

Ormen den lange 

13 

Svenska sidan 

14-16 

ffi 0 Å på skærmen 

16 

Listebeskyttelse 

17-18 

Få orden på variabierne 

18 

Karate til SVI 318/328 

19-21 

Køb/salg & nye medlemmer 

21-22 

SVI BIB 

23 

Directory for tapefans 

24-25 

DX7 random patch generator 

25-27 

Linke program 

28 

3 programmer fra Matthias 

29-31 

Datacraft 

32 


Artikler, annoncer eller programmer 
der ønskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

Indtil videre har det stået 
noget sløjd til med indbetalingerne 
til den nye årgang af Syntax'en. 
Dette selvfølgelig meget bedrøve— 
ligt, da hele vores budget bæres 
oppe af medlerns-kontingentet. Imid¬ 
lertid håber vi på at medlemsantal¬ 
let vil rette sig op i den næste 
månedstid. 

De fleste af dem, der har indbe¬ 
talt, har på girokortet skrevet om 
deres mening, ønsker osv. angående 
bladet. Alt i alt er det heldigvis 
et meget posi tivt billede, der 
tegner sig. De punkter vi har fået 
ris ved, vil vi naturligvis tage op 
til revi si on, og dem vi har fået 
ros ved, vil vi forstærke ef ter 
bedste evne. De mange ønsker vi har 
fået er kommet i hænderne på alle 
redakti onsmedlemmerne, så vi kan 
forme de kommende numre af 
Syntax'en til størst mulig glæde 
for 1æserne. 


Foreningen hedder: MSX BRUGERKLUBBEN 
Medlemsskab koster 165 Kr. (årligt) 
Salgsannoncer er for medlemmer gratis 
Annoncører : 1/2=300 kr. 1/1=500 kr. 

Medlemskab opnås ved henvendelse til 
foreningens kasserer, eller ved ind¬ 
betaling af kontingent på postgironr. 
8 2 0 6 0 8 2 

HUSK at opgive navn, adresse, postnr. 
og by, samt tlf.nr. og maskintype. 


Bladet hedder : SYNTAX 
Oplag : 800 eks. 

Udkommer : 10 gange årligt (ikke jan 
og juli). 

Tryk : Foto offset. 

Løssalgspris : 17,00 Kr. 

Udkommer næste gang : April 


Formand : 

Tlf. nr. 
Kasserer : 

Tlf. nr. 


Kim Andersen 
Fundervej 32 
2610 Rødovre 
02 94 26 74 
Preben Lund 

Galgebakken Neder 2-3 b. 
2620 Albertslund 
02 64 76 26 


Redaktionsgruppen består af formand, 
kasser og følgende 


Richard Foersom 

Tlf.nr, 

01 

22 

26 

34 

Henrik Larsen 

- 

01 

74 

73 

99 

Peter Knudsen 

- 

02 

17 

76 

23 

Søren Mortensen 

- 

01 

69 

77 

40 

Jannik Storm 

- 

01 

65 

74 

59 

Per Under1ien 

- 

02 

64 

09 

66 

Henrik Gilvad 

- 

03 

14 

36 

57 

Søren Nielsen 

- 

02 

52 

85 

93 

Jonas Tromborg 

- 

02 

65 

28 

98 

Lars Hansen 

- 

02 

32 

44 

73 

FYN 






Jens Møller 

- 

09 

94 

22 

75 

JYLLAND 






Johnny B. 

- 

06 

82 

66 

98 

SVERIGE 






Jan Bo jstrup 

00946. 

40- 

-22 

23 

33 

Joakim Tornhi11 


40- 

-91 

96 

58 

Magnus Balldin 

. 

40- 

-15 

01 

98 

NORGE 






Kjel 1 Johansen 

00947. 

02- 

-28 

24 

45 

33 O @ ^ W æ £30 ^ æ ^ W OS SS * 

1 

i 

1 

1 

1 

1 

1 

1 
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Copyright. MSX BRUGERKLUBBEN 


Kim Andersen 




SYNTAX Årgang <b 


nr. 


PLAY DIREKTE I 
DATA LIN I ER. 


HEJ FANS 

Hermød et nytteprogram til Jer der 
sidder og laver spil og lignende. 
Tit mangler man lige en stump musik 
til at sætte prikken over i'et og 
dette kan du klare med mit lille 
program fra Japan. 

Jeg har bearbejdet det 1 idt for at 
man skal kunne forstå det og jeg 
har også tilføjet 1 idt extra bl. a. 
en pause funktion, er du 1 idt op¬ 
findsom kan du sagtens selv bygge 
mere på programmet som her kun bru¬ 
ger 1/4 dels noder. 

Du får Taster på skærmen og kan så 
vælg© mellem orgel ©Iler klaver lyd 
Derefter kan du spille melodien 
p& computer tasterne, husk pauser, 
n&r du er færdig tryk return og ind 
giv filnavn, derefter bliver melo¬ 
dien gemt ud i en datafil som Åsehi 
det vil sig© at filen kan Merges 
med dit eget Basic program. 

Linie numrene med Play starter ved 
30000 i datafilen. 

Du kan også load© filen og lada din 
computer spille stykket. 

Computeren spiller også melodien 
men© den genmier den ud på dit Data 
medie (Bånd ©Iler Disk) 

Jeg håber at nogen kan få fornøjel¬ 
se af dette program, hvis du nu 
forbedrer det så send resultatet 
til mig, så vi all© kan være med og 
drage nytte deraf. 


Obs medlemmer der sender noget til 
mig får altid en god belønning. 

Efter programmet en lille prøve på 
hvad man kan gøre, det har jeg selv 
indspillet. 

Hej fra Johnny B Silkeborg Danmark 


10 

• ft*ftWft*#ftftft&ftftftftftftftftftftftftftftftft 

20 

i # 

BASIC PLAY 

* 

30 

i * 

Bearbejdet af Johnny B 

% 

40 

i # 

org. prg. Japan 

* 

50 

i ft 

Spil på tasterne og få 

ft 

60 

i ft 

melodien lagt i en data 

ft 

70 

i ft 

fil (Bånd & Disk) 

ft 

80 

i ft 

SYNTAXEN 89 

ft 

90 

i rtrtftftftftftftftrtftftftftftftftftftftftftftftftftft 

95 

1 




100 SCREEN 1 

110 GOSUB 1340 

120 CLEAR:GOSUB 300 

130 DIM KY(1000):P-0:SW-0:N-30000 

140 GOSUB 930 

150 LOCATE 2,4:INPUT"(1) Klaver (2 
) Orgel ";TY$ 

160 LOCATE 2,4:PRINT" 


170 IF TY$«"1" THEN LOCATE 4,4:PRIN 
T"Klaverlyd " 

180 IF TY$ m "2" THEN LOCATE 4,4:PRIN 
T"0rgellyd" 

190 GOSUB 340 

200 Å$“INKEY$:IF A$-"" GOTO 200 
210 IF ÅSC(Å$)“&HD GOTO 780 
220 IF ASC(A$) > &H60 THEN A$-CHR$( 
ÅSC(A$)-&H20) 

230 F“XNSTR(K$,A$) 

240 IF F-0 GOTO 200 
250 GOSUB 280 

260 IF P“1000 THEN GOTO 780 
270 GOTO 200 

280 ON F GOSUB 430,440,450,460,470, 

480,490,500,510,520,530,540,550,560 

,570,580,590,600 

290 RETURN 

300 ' 

310 READ Å$ 

320 IF A$<>"" THEN K$-K$+A$:GOTO 31 
0 

330 RETURN 

340 IF TY$®"2" THEN 390 
350 MV$ ra "M400Q" 

360 LV$“"L8" 

370 SV$-"S0" 

380 RETURN 

QGA MU&a, "\M O M 


400 

410 

420 

430 

LV$-"L8" 

SV$“"" 

RETURN 

X$="04C" 

: GOTO 

610: ' 

h y ii 

Ærrtk 

440 

X$ Ea "04D" 

: GOTO 

610: ' 

"X" 

450 

X$="04E" 

: GOTO 

610: ' 

"C" 

460 

X$-"04F" 

: GOTO 

610: 1 

"V" 






5 SYNTAX Årgang é=» nr.2 


470 X$-"04G" :GOTO 610: 1 
480 X$-"04A" :GOTO 610:' 
490 X$-"04B" :GOTO 610:' 
500 X$-"05C" :G0T0 610: 1 
510 X$-"04C#":G0T0 610:' 
520 X$-"04D#":GOTO 610:' 
530 X$“"04F#":GOTO 610:' 
540 X$~"04G#":GOTO 610:' 
550 X$-"04A#":GOTO 610:' 
560 X$-"05C#":GOTO 610:' 
570 X$“"R":GOTO 610:' "P 
580 RETURN 
590 RETURN 
600 RETURN 
610 ' 

620 ' Spille 
630 ' 

640 Y$-LV$+SV$+MV$+X$ 

650 PLAY Y$ 

660 IF SW-1 GOTO 700 


B 

'N 

M 

I 

9 

S 

'D 

G 

'0 

J 

'L 


670 KY(P)-F:P«P+1 

680 LOCATE 2,11;PRINT "NR";1000-P 

690 RETURN 

700 PRINT N;" PLAY";CHR$(&H22);X$;C 
HR$ (&H22) 

710 PRINT #1,N;" PLAY";CHR$(&H22);X 
$;CHR$(&H22) 

720 RETURN 
730 ' 

740 ' Hvilke taster bruges 
750 y 

760 DATA "Z","X","C","V","B","N","M 


II II II 


770 DATA "S" 


"D","G","H","J","L" , "P 


II II 
9 


780 ' 

790 ' G@mm© det spil led© som AacM 
£ il 
800 ' 

BIO CLS:INPUT"FILNAVN";FI$ 

820 OPEN PJ$+".OTO" FOR OUTPUT AS # 


1 

B30 PRINT N;" PLAY";CHR$(&H22);LV$; 
SV$;MV$;CHR$(&H22):N«N+10 
840 PRINT #1,N;" PLAY";CHR$(&H22);L 
V$;SV$;MV$;CHR$(&H22):N-N*10 
850 I-0:SW-1 

860 IF KY(I) - 0 GOTO 890 
870 F ®KY(I):GOSUB 280 
880 N-N+10:I-I+1:GOTO 860 
890 GLOSE #1 
900 INPUT"RETRY";S$ 

910 IF S$-"Y" OR S$“"y" GOTO 120 
920 END 
930 ' 

940 ' Skærmbillede 


950 1 

960 KEY OFF:CLS 

970 LOCATE 3,13:PRINTCHR$(1);CHR$(2 
4+64);CHR$(1);CHR$(23+64);CHR$(1);C 
HR$(23+64);CHR$(1);CHR$(18+64);CHR$ 
(1);CHR$(23+64);CHR$(1);CHR$(23+64) 
;CHR$(1);CHR$(25+64);" 

980 LOCATE12, 13:PRINTCHR$(1);CHR$(2 
4+64);CHR$(1);CHR$(23+64);CHR$(1);C 
HR$(23+64);CHR$(1);CHR$(18+64);CHR$ 
(1);CHR$(23+64);CHR$(1);CHR$(23+64) 

;CHR$(1);CHR$(18+64);CHR$(1);CHR$(2 
3+64);CHR$(1);CHR$(23+64);CHR$(1);C 
HR$(25+64); 

990 LOCATE24. 13:PRINTCHR$(1);CHR$(2 
4+64);CHR$(1);CHR$(23+64);CHR$(1);C 
HR$(23+64);CHR$(1);CHR$(25+64); 

1000 LOCATE 3,14:PRINTCHR$(1);CHR$( 
22+64);"S ";CHR$(1);CHR$(22+64); "D 
"jCHR$(l);CHR$(22+64);" ";CHR$(D; 
CHR$(22+64);"G ";CHR$(1);CHR$(22+64 
) ;"H " 


1010 L0CATE18,14:PRINTCHR$(1);CHR$( 
22+64);"J ";CHR$(1);CHR$(22+64);" 
";CHR$(1);CHR$(22+64);"L ";CHR$(D; 
CHR$(22+64) 

3,15:PRINTCHR$(1);CHR$( 
CHR$(1);CHR$(22+64);" 


1020 LOCATE 
22+64);" " 


CHR$(22+64) 


;CHR$(1);CHR$(22+64);" ";CHR$(1); 


;CHR$(1);CHR$(22+64 


) 


11 


1030 LOCATE18,15:PRINTCHR$(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);" ";CHR$(1); 


CHR$(22+64) 
1040 LOCATE 
22+64);" " 

" ; GHR$ (1) ; ch: 
CHR$(22+64) 


3,16:PRINTCHR$(1);CHR$( 
CHR$(1);CHR$(22+64);" 
(22+64);" ";CHR$(1); 

";CHR$(1);CHR$(22+64 


)." M 

1050 LOCATE18,16:PRINTCHR$(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64); " 

";CHR$(1);CHR$(22+64);" ";CHR$(D; 


CHR$(22+64) 
1060 LOCATE 
22+64);"C# 1 


;CHR$(1);CHR$(22+64) 


CHR$(22+64) 


3,17:PRINTCHR$(1);CHR$( 
CHR$(1);CHR$(22+64);"D# 


";CHR$(1); 


'F#";CHR$(1);CHR$(22+64 


);"G#" 

1070 L0CATE18,17:PRINTCHR$(1);CHR$( 
22+64);"A#";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);"C#";CHR$(D; 
CHR$(22+64); 
















SYMT^X Årgang é=> nr. Z2. 


é=> 



1080 LOCATE 2,18:PRINTCHR$(1);CHR$( 
24+64);CHR$(1);CHR$(17+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(18+64);CHR 
$(1);CHR$(17+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(18+64);CHR$(1);CHR$( 
17+64);CHR$(1);CHR$(23+64); 

1090 L0CATE11,18:PRINTCHR$(1);CHR$( 
18+64);CHR$(1); CHR$(17+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(18+64);CHR 
$(1);CHR$(17+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(18+64);CHR$(1);CHR$( 
17+64);CHR$(1);CHR$(23+64); 

1100 LOCATE20,18:PRINTCHR$(1);CHR$( 
18+64);CHR$(1);CHR$(17+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(18+64);CHR 
$(1);CHR$(17+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(18+64);CHR$(1);CHR$( 
27+64); 

1110 LOCATE 2,19:PRINTCHR$(1);CHR$( 
22+64);"Z CHR$(1);CHR$(22+64);"X 
";CHR$(1);CHR$(22+64);"C ";CHR$(1); 
CHR$(22+64);"V ";CHR$(1);CHR$(22+64 
) ; "B " 


1120 LOCATE17,19 : PRINTCHR$ ( 1 ); CHR$( 
22+64); "N CHR$(1);CHR$(22+64);"M 
";CHR$(1);CHR$ (22+64) ;", ";CHR$(1); 
CHR$(22+64); 

1130 LOCATE 2,20:PRINTCHR$(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);" ";CHR$(1); 

CHR$(22+64);" ";CHR$(1);CHR$(22+64 

)f" " 


1140 LOCATE17,20:PR1NTCHRI(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);" ";CHR$(1); 

CHR$(22+64); 

1150 LOCATE 2,21:PRINTCHR$(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);" ";CHR$(1); 

CHR$(22+64)i" ";CHR$(1);CHR$(22+64 

);" " 

1160 LOCATE17,21:PRINTCHR$(1);CHR$( 
22+64);" ";CHR$(1);CHR$(22+64);" 

";CHR$(1);CHR$(22+64);" ";CHR$(1); 

CHR$(22+64); 

1170 LOCATE 2,22:PRJNTCHR$(1);CHR$( 
22+64);"C CHR$(1);CHR$(22+64);"D 

";CHR$(1);CHR$(22+64);"E n ;CHR$(l); 
CHR$(22+64);"F CHR$(1);CHR$(22+64 

) ; "G " 

1180 LOCATE17,22:PRINTCHR$(1);CHR$( 
22+64);"A CHR$(1);CHR$(22+64);"H 
";CHR$(1);CHR$(22+64);"C ";CHR$(1); 
CHR$(22+64); 


1190 LOCATE 2,23: PRINTCHR$(1);CHR$( 
26+64);CHR$(1);CHR$(23+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(17+64);CHR 
$(1);CHR$(23+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(17+64);CHR$(1);CHR$( 
23+64);CHR$(1);CHR$(23+64); 

1200 LOCATE11,23:PRXNTCHR$(1);CHR$( 
17+64);CHR$(1);CHR$(23+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(17+64);CHR 
$(1);CHR$(23+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(17+64);CHR$(1);CHR$( 
23+64);CHR$(1);CHR$(23+64); 

1210 LOCATE20,23:PRINTCHR$(1);CHR$( 
17+64);CHR$(1);CHR$(23+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(17+64);CHR 
$(1);CHR$(23+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(27+64); 

1220 LOCATE 19,6:PRXNTCHR$(1) ;CHR$( 
24+64);CHR$(1);CHR$(23+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(23+64);CHR 
$(1);CHR$(23+64);CHR$(1);CHR$(23+64 
);CHR$(1);CHR$(23+64);CHR$(1);CHR$( 
23+64);CHR$(1);CHR$(25+64); 

1230 LOCATE 2,7:PRINTCHR$(1);CHR$(2 
4+64);CHR$(1);CHR$(23+64);CHR$(1) ; C 
HR$(23+64);CHR$(1);CHR$(23+64);CHR$ 
(1);CHR$(23+64);CHR$(1);CHR$(23+64) 

;CHR$(1);CHR$(23+64);CHR$(1);CHR$(2 
3+64); 

1240 LOCATE 8,7:PRXNTCHR$(1);CHR$(2 
3+64);CHR$(1);CHR$(23+64);CHR$(1) ;C 
HR$(23+64);CHR$(1);CHR$(23+64);CHR$ 
(1);CHR$(23+64);CHR$(1);CHR$(23+64) 
;CHR$(1);CHR$(25+64);" M ;CHR$(1) 

;CHR$(22+64);" TRYK !";CHR$(1);CHR$ 
(22+64); 

1250 LOCATE 2,8:PRINTCHR$(1);CHR$(2 
2+64);" TRYK P for";CHR$(1);CHR$(22 
+64);" ";CHR$(1);CHR$(26+64);CHR 
$(1);CHR$(25+64);"RETURN";CHR$(1);C 
HR$(22+64); 

1260 LOCATE2, 9 :PRINTCHR$(1);CHR$(22 
+64);" 1/4 pause "CHR$(1);CHR$(22+6 
4);" ";CHR$(1);CHR$(22+64);" FO 
R ";CHR$(1);CHR$(22+64); 

1270 LOCATE2,10:PRINTCHR$(1);CHR$(2 
6+64);CHR$(1);CHR$(23+64);CHR$(1);C 
HR$(23+64);CHR$(1);CHR$(23+64);CHR$ 
(1);CHR$(23+64);CHR$(1);CHR$(23+64) 

;CHR$(1);CHR$(23+64);CHR$(1);CHR$(2 
3+64);CHR$(1);CHR$(23+64);CHR$(1) ;C 
HR$(23+64);CHR$(1);CHR$(23+64);CHR$ 
( 1 ) ; 




~7 SYNTAX Årgang nr.2 


1280 LOCATE12,10:PRINTCHR$(1);CHR$( 
23+64);CHR$(1);CHR$(23+64);CHR$(1) ; 
CHR$( 27+64) 11 ; CHR$ (1) ; CHR$ (22 

+64);" SLUT CHR$(1);CHR$(22+64) ; 

1290 LOCATE20,11:PRINTCHR$(1);CHR$( 
26+64);CHR$(1);CHR$(23+64);CHR$(1); 
CHR$(23+64);CHR$(1);CHR$(23+64);CHRi 
$(1);CHR$(23+64);CHR$(1);CHR$(23+64 
); CHR$ (1);CHR$(23+64);CHR$(1);CHR$( 



27+64) ; 


1300 LOCATE 4,1:PRINT" BASIC PLAY P 
ROGRAM" 

1310 LOCATE 2,2:PRINTCHR$(219);CHR$ 
(219);CHR$(219);CHR$(219);CHR$(219) 

;CHR$(219);CHR$(219);CHR$(219);CHR$ 
(219);CHR$(219); 

1320 LOCATE12,2:PRINTCHR$(219);CHR$ 
(219);CHR$(219);CHR$(219);CHR$(219) 
;CHR$(219);CHR$(219);CHR$(219);CHR$ 
(219);CHR$(219);CHR$(219);CHR$(219) 

;CHR$(219);CHR$(219);CHR$(219) ; 

1330 RETURN 

1340 PLAY "M4000S0L8CDEFGAB":PLAY " 
R8 " 

1350 PLAY "V13","V13","V13" 

1360 PLAY "L8CDEFGAB":PLAY "R8" 

1370 PLAY "04L4C","04L4E","04L4G":P 
LAY"R4" 

1380 PLAY "03B","04D","04F":PLAY "R 
4" 

1390 PLAY "04C","04E","04G" 

1400 RETURN 



Demonstration af Basic Play 

30010 PLAY"L8V13" 

30020 PLAY"04E" 

30030 PLAY"04E" 

30040 PLAY"04E" 

30050 PLAY"04E" 

30060 PLAY"04G" 

30070 PLAY"04E" 

30080 PLAY"04E" 

30090 PLAY"04E" 

30100 PLAY"04G" 

30110 PLAY"04E" 

30120 PLAY"04C" 

30130 PLAY"04E" 

30140 PLAY"04D" 

30150 PLAY"R" 

30160 PLAY"R" 

30170 PLAY"04D" 

30180 PLAY"04D" 

30190 PLAY"04D" 

30200 PLAY"04D" 

30210 PLAY"04F" 

30220 PLAY"04D" 

30230 PLAY"04D" 

30240 PLAY"04D" 

30250 PLAY"04C" 

30260 PLAY"04D" 

30270 PLAY"04E" 

30280 PLAY"04D" 

30290 PLAY"04C" 

30300 PLAY"R" 

30310 PLAY"R" 

30320 PLAY"05C" 

30330 PLAY"R" 

30340 PLAY"04G" 

30350 PLAY"04G" 

30360 PLAY"04G#" 

30370 PLAY"04G" 

30380 PLAY"R" 

30390 PLAY"04B" 

30400 PLAY"05C" 

Dette var 1 idt af stykket 
Se den lille kattekilling! 
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BASIC MED PETER. 

Den forrige opgave var måske 
lidt svær, hvis ikke man før har 
stiftet bekendtskab med READ- 
DATA rutinen. 

Især kunne det være svært at få 
programmet til at køre, hvis man 
ikke kunne gennemskue, at tallet 
nul blev brugt som stopklods, d. 
v.s., at når 0 i datasætningen 
blev nået, så var programmet 
slut. 

Med linie 30 blev der undersøgt 
om værdien af A og B var nul. 

Den ene fejl lå her: 

30 IF A ~ 0 OR B = 0 ..... 

“ ville være den rigtige 
undersøgelse af A og B. 

Den næste fejl lå i linie 70, 
hvor der sker en sammen1igning 
af summem af A og B ( = D ) og 
det indtastede tal var ens. 

Det indtastede tal lå i 
variablen C og ikke A. 

70 IF D = C THEN .... 

- er korrekt. 

Her er iøvrigt et godt eksempel 
på udnyttelse af XF-THEN-ELSE 
strukturen, som vi tidligere har 
berørt. 

Den sidste fejl ligger i linie 
90. Vi arbejder med talvariabler 
og der ikke må forekomme 
bogstaver iblandt. Derfor skal A 
erstattes med et tal. 

Lad os nu se på Strengvariabler, 
Det er dem der bruges til 
bogstaver og meget andet godt 
En strengvariabel kan se således 
ud: A$ - og have et indhold af 
tal, bogstaver eller begge dele. 
Eks.: A$ = "Dette er et tal: 8" 

Alle de funktioner vi har 
gennemgået indtil nu kan uden 
videre anvendes til 

strengvariable. 


Programmet til næste nummer 
stiller måske lidt store krav, 
men fortvivl ikke. Det er 
vigtigt at have styr på disse 
ting for at kunne lave sine egne 
programmer. 

Opgaven lyder: 

Lav et program, der spørger om 
hovedstaden i forskellige lande. 
Giv point for rigtige svar, og 
meddel om svaret var korrekt. 


Løsningen kan gribes an på 
forskellig måde, men lad os 
bruge de metoder vi hidtil har 
arbejdet med. Løsningsforslaget 
er programmeret mere 

struktureret end vi tidligere 
har set, og hvis du vænner dig 
til det, når du laver dine egne 
programmer, vil de blive mere 
overskuelige - især når det 
gælder større programmer. 

Der er indlagt 3 fejl i 
nedstående løsningsforslag: 

10 WIDTH 40 
20 READ A$ 

30 IF A$ = B$ THEN GOTO 100 
40 PRINT "HVAD HEDDER HOVEDSTAD¬ 
EN X A$ ; "?" 

50 INPUT B$ 

60 READ B$ 

70 IF B$ < > A$ THEN GOSUB 120 
80 IF B$ = A$ THEN GOSUB 130 
90 GOTO 20 


100 

PRINT 

"SPILLET ER FORBI, 

DU 


FIK " 

; Y ; "POINT” 


110 

END 



120 

PRINT 

TURN 

"SVARET ER FORKERT" 

: RE 

130 

PRINT 

"SVARET ER KORREKT" 


140 

X=X+1 



150 

PRINT 

"DU HAR X "POINT 

tt 

160 

RETURN 


170 

DATA 

DANMARK, KØBENHAVN, 

VES 


TTYSKLAND, BONN, ENGLAND, 

LO 


NDON, 

ITALIEN, ROM, * 


God 

j agt 

med fejlsøgningen. 



peter 


j 
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REGRESSION AF 
VITUS NILSEN 

Her ei et lille (!) program jeg 
længe har haft liggende i BIB. Men 
som jeg synes fortjener at blive 
bragt i bladet. Programmet hedder 
'REGRESSION', og er skrevet af J. 
Vitus Nielsen fra byernes by, Rød¬ 
ovre. Programmet bruges til at 
tilnærme grafer ud fra indsamlede 
data. Det er et alle tiders redskab 
for alle matematikere, og er rige¬ 
lig indtastningsbesværet værd. 

Programmet er skrevet til MSX, 
men efter programmet har jeg lavet 
rette 1 ser til SVI 318/328. 



10 ' REGRESSION MSX-version 1.0 
20 ' J. Vitus Nielsen 1988 
30 ' 

40 CLS:KEY OFF:SCREEN 0:DEFSNGA-Z 

50 L0CATE 5,5:PRINT”1. KORRELATIONSKOEFFIC 

IENT" 

60 LOCATE 5,8:PRINT"2. LINEÆR REGRESSION” 
70 LOCATE 5,11:PRINT"3. MULTIPEL LINER REG 
RESSION" 

80 LOCATE 5,14:PRINT"4. N’te GRADS REGRESS 
ION ” 

90 LOCATE 5,17:PRINT"5. EKSPONENTIEL REGRE 
SS I ON " 

100 LOCATE 5,20:PRINT"6. SLUT” 

110 LOCATE 5,25:PRINT”VÆLG UNDERPROGRAM (1 
” 6 ) **• 

120 INPUTK1 

130 IFK1<10RK1>6G0T0 110 
140 0NK1GOTO160,320,600,1280,2000 
150 END 
160 CLS 

170 PR I NT"KORRELAT I ONSKOEFFICIENT” 

180 PRINT”================== ===== ”*PRINT:P 

RINT 

190 INPUT "ANTAL KOORDINATER”;N 
200 J=0:K=0:L=0:M=0:R=0 


210 F0RI=1T0N 

220 PRINT"PUNKT";I;"KOORDINATER <X,Y) 

230 INPUTX,Y 

240 J=J+X:K=K+Y:L=L+X A 2:M=M+Y A 2:R=R+X#Y 
250 NEXT 

260 R2= (N#R-J#K) / (SQR(N#L-J A 2)#(N#M-K A 2)) 
270 PRINT:PRINT"KOEFFICIENTEN ER LIG ”;R2 
280 PRINT:PRINT"VIL DU KØRE PROGRAMMET IGE 
N? (1=JA, 0=NEJ) 

290 INPUTD:PRINT 
300 IFD=1THENG0T0 190 
310 GOTO 40 

320 CLS:PRINT"LINEÆR REGRESSION”:RG=1 
330 PRINT"=================":PRINT 

340 RG=1:INPUT"ANTAL KOORDINATER ”;N 
350 DIMPX(N),PY(N) 

360 J=0:K=0:L=0:M=0:R2=0 
370 F0RI=1T0N 

380 PRINT"PUNKT";I;"KOORDINATER (X,Y) : I 

NPUTX,Y:PX(I)=X: PY(I)=Y 

390 J = J+X: K=K+Y: L=L+X A 2: M=M+Y A 2 

400 R2=R2+X#Y:NEXTI 

410 B=(N*R2-K*J)/(N#L-J A 2):A= <K-B*J)/N 
420 PRINT:PRINT"F(X) =";A;”+ <";B;"* X)" 
430 J=B*(R2-J&K/N):M=M-K A 2/N:K=M-J 
440 R2=J/M:PRINT 

450 PRINT"FORKLARET VARIATION (R A 2) = ”; 

460 PRINTUSING”#.###";R2 

470 PRINT” KORRELATIONSKOEFFICIENT = 

480 PRINTUSING"#.###";SQR(R2) 

490 PRINT" ESTIMERET SPREDNING = 

500 PRINTUSING"#.###";SQR(K/(N-2)) 

510 PRINT:PRINT"INTERPOLATION: ” 

520 PRINT”(INDTAST 0 HVIS SLUT ØNSKES)" 

530 PRINT”(INDTAST .1 HVIS GRAF ØNSKES)" 

540 PRINT”INDTAST X ";: INPUTX 

550 IFX=0THEN40 

560 IFX=.1THEN2750 

570 PRINT" Y =";A+B#X 

580 PRINT:GOTO 540 

590 END 

600 CLS:PRINT"MULTIPEL LINEÆR REGRESSI ION" 
610 PRINT”==================== ======= " 

620 INPUT " ANTAL KOORDINATER ”;N 

630 INPUT "ANTAL UAFHÆNGIGE VARIABLER”; V 
640 PRINT:DIM X(V+2),S(V+2),T(V+l),A(V+1,V 
+ 2 ) 

650 X(1)=1:FOR1=1TON:PRINT 
660 PRINT "PUNKT”;I 
670 FOR J=lTOV 

680 PRINT"UAFHÆNGIG VARIABEL”;J; 

690 INPUTX(J+1):NEXTJ 

700 PRINT” AFHÆNGIG VARIABEL "; 

710 INPUT X(V+2) 

720 FORK=lTOV+l 
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730 FORL=lTOV+2 

740 A(K,L)=A(K,L)+X(K)#X(L) 

750 S(K)=A(K,V+2) 

760 NEXTL:NEXTK 

770 S(V+2)=S(V+2)+X(V+2) / '2 

780 NEXTI 

790 FORI=2TOV+l 

800 T(I)=A(1,I) 

810 NEXTI 

820 F0RI=1T0V+1:J = I 

830 IFA(J, I) <>OTHENGOTO 880 

840 J=J+1 

850 IFJ<=V+1THENG0T0 830 

860 PRINT:PRINT ”!!! INGEN ENTYDIG LØSNING 

ti 

870 PRINT:GOTO1270 
880 FORK=1TOV+2 
890 B=A(I,K) 

900 Ad ,K)=A(J ,K) 

910 A(J,K)=B: NEXTK 
920 Z=l/A(I,I) 

930 FOR K=1TOV+2 

940 A(I,K)=Z#Ad,K):NEXTK 

950 FORJ=lTOV+l 

960 IFJ=ITHENGOT01010 

970 Z=-A(J,I) 

980 F0RK=lT0V+2 

990 A(J,K)=A(J,K)+Z#A(I,K) 

1000 NEXTK 
1010 NEXTJ 
1020 NEXTI 

1030 PRINT:PRINT”LIGNINGENS KOEFFICIENTER: 
”:PRINT 

1040 PRINT” KONSTANT =";A(l,V+2) 

1050 FORI=2TOV+l 

1060 PRINT"VARIABEL”;1-1;"=”;A(I,V+2> 

1070 NEXTI:P=0 
1080 FORI=2TOV+l 

1090 P=P+A(I,V+2)*(S(I)~T(I)*S(1)/N) 

1100 NEXTI 

1110 R=S(V+2)-S(1) A 2/N 

1120 Z=R-P: L=N-V--1: PRINT: I=P/R 

1130 'STOP 

1140 PRINT "FORKLARET VARIATION (R /s 2) = ”; I 
1150 PRINT" KORRELATIONSKOEFFICIENT =";SQ 
Rd) 

1160 PRINT” ESTIMERET SPREDNING = ";SQ 

R(ABS(Z/L)):PRINT 

1170 PR INT"INTERPOLATION: ” 

1180 PRINT"(INDTAST 0 HVIS SLUT ØNSKES)” 
1190 P=A(1, V+2) 

1200 F0RJ=1T0V 

1210 PRINT" VARIABEL”;J;:INPUTX 

1220 IFX=0THEN G0T01270 
1230 P=P+A(J+l,V+2)#X 


1240 NEXTJ 

1250 PRINT"AFHÆNGIG VARIABEL =”;P:PRINT 
1260 G0T01190 
1270 END 

1280 CLS:PRINT"N’te GRADS REGRESSION":RG=2 
1290 PRINT”=====================”:PRINT 

1300 RG=2:INPUT ” LIGNINGENS GRAD ”;D 
1310 INPUT ” ANTAL KOORDINATER ";N 
1320 DIM A(2#D+1),R <D+1,D+2),T(D+2),PX(N), 
PY(N),B(D+1) 

1330 Ad) =N 
1340 F0RI=1T0N 

1350 PRINT"PUNKT";I;"KOORDINATER (X,Y) ”; 

1360 INPUT X,Y:PX(I)=X:PY(I> =Y 

1370 FOR J=2T02#D+1 

1380 A(J)=A(J)+X A (J-1):NEXTJ 

1390 FORK=1TOD+1 

1400 R(K,D+2)=T(K)+Y#X A (K-l) 

1410 T(K)=T(K)+Y#X A (K-1) -.NEXTK 

1420 T(D+2)=T(D+2)+Y A 2 

1430 NEXTI 

1440 F0RJ=1T0D+1 

1450 F0RK=1T0D+1 

1460 R(J,K)=A(J +K—1) :NEXTK,J 

1470 FOR J=1TOD+1 

1480 K=J 

1490 IFR(K,J)< >0THEN1540 
1500 K=K+1 

1510 IFK< +D+1THEN1490 

1520 PRINT:PRINT"!!! INGEN ENTYDIG LØSNING 

":PRINT 

1530 GOTO40 

1540 FORI=1TOD+2 

1550 S=R(J,I) 

1560 R(J,I)=R(K,I):R(K,I)=S 
1570 NEXTI 
1580 Z=1/R(J,J) 

1590 FORI=lTOD+2 

1600 R(J,I)=Z#R(J,I) : NEXTI 

1610 F0RK=1T0D+1 

1620 IFK=JTHEN1670 

1630 Z=—R(K,J) 

1640 FORI=1TOD+2 

1650 R(K,I)-R(K,I)+Z#R(J,I) 

1660 NEXTI 
1670 NEXTK 
1680 NEXTJ:PRINT 

1690 PRINT” KONSTANT = 

1700 PRINTUSING"###.###";R(1,D+2):A=R(1,D+ 
2 ) 

1710 FORJ=1TOD 

1720 PRINT” ";J;"’TE GRADS KOEFFICIENT = ” 

;: PRINTUSING”###. ###"; R(J + l,D+2):B(J)=R(J + 
1,D+2 > 

1730 NEXTJ:PRINT 
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1740 P=0 

1750 F0RJ=2T0D+1 

1760 P=P+R(J,D+2)*(T(J)-A(J)#T<1)/N) 

1770 NEXTJ 

1780 Q=T(D+2)-T(l) A 2/N 
1790 Z=Q-P:I=N-D-1:PRINT 
1800 J=P/Q 

1810 PRINT”FORKLARET VARIATION (R A 2) = 

1820 PRINTUSING’’###.###”;J 

1830 PRINT" KORRELATIONSKOEFFICIENT = 

1840 PRINTUSING’’###. ###"; SQR (J) 

1850 PRINT" ESTIMERET SPREDNING = ’’; 

1860 PR INTUS ING’’###. ### ”; SQR (ABS (Z/1)) 

1870 PRINT: PRINT”INTERPOLLATION :’’ 

1880 PRINT: PRINT’’INDTAST 'O' HVIS SLUT ØNS 
KES” 

1890 PRINT”INDTAST 0.1 HVIS GRAF ØNSKES":P 
RINT 

1900 P=R(1,D+2) 

1910 INPUT”INDTAST X”;X 
1920 IFX=0THEN40 
1930 IFX=.1THEN2750 
1940 F0RJ=1T0D 
1950 P=P+R(J+l,D+2)XX^J 
1960 NEXTJ 

1970 PRINT” Y= ’’; P 

1980 PRINT:GOTO 1900 
1990 END 

2000 CLS:PRINT”EKSPONENTIEL REGRESSION": RG 
= 3 

2010 PRINT”=======================” 

2020 RG=3:PRINT:INPUT" ANTAL KOORD I 

NATER ’’; N 

2030 DIMPX(N),PY(N):J=0:K=0:L=0:M=0:R2=0 
2040 F0RI=1T0N 

2050 PRINT"PUNKT"; I; "KOORDINATER (X,Y) ’’; 

2060 INPUTX,Y:PX(I)=X:PY(I)=Y 

2070 Y=L0G(Y):J=J+X:K=K+Y:L=L+X"2:M=M+Y"2: 

R2=R2+XxY 

2080 NEXTI 

2090 B=(NXR2-KXJ)/(NxL-J A 2) 

2100 A=(K-BxJ)/N:PRINT 

2110 PRINT "A =”;:PRINTUSING"###.###”;EXP( 
A) 

2120 PRINT ”B =”;: PRINTUSING”###. ###’’; B 
2130 J=BX(R2-JXK/N):M=M-K / "2/N:K=M-J:PRINT 
2140 R2=J/M 

2150 PRINT’’FORKLARET VARIATION <R~2) = ’’; 
2160 PRINTUSING’’###.###”;R2 
2170 PRINT" KORRELATIONSKOEFFICIENT = ’’; 
2180 PRINTUSING”###.###”;SQR(R2) 

2190 PRINT" ESTIMERET SPREDNING = ’’; 

2200 PRINTUSING"###.###”;SQR(K/(N-2)) 

2210 PRINT: PRINT”! NTERPOLATI ON: ’’ 


2220 PRINT:PRINT”INDTAST , 0’ HVIS SLUT ØNSK 
ES" 

2230 PRINT"INDTAST 0.1 HVIS GRAF ØNSKES" 
2240 PRINT:PRINT "INDTAST X”; 

2250 INPUTX 

2260 IFX=OTHEN 40 

2270 IFX=.1THEN2750 

2280 PRINT ’’ Y=";EXP<A)#EXP(B#X) 

2290 PRINT:GOTO 2240 
2300 END 

2310 COLOR 15,4,4:WIDTH39 
2320 CLS:PRINT 

2330 PRINT" Trykker du ’ENTER' når du ska 
1 skri veen værdi , bruger programmet, de på 
for-hånd indsatte værdier (dem i klammerne 
) " 

2340 PRINT” Når grafen er tegnet kan du æ 
ndre påkoordinatsystemet ved at taste ’N 
’ ogreturnere til delprogrammet ved at ta 
s-te ’E’. ’’ 

2350 A$=INPUT$(1) 

2360 CLS:KEYOFF:COLOR 15,4 
2370 TJ=0:SCREENO 

2380 C0L0R15,1:CLS:KS$=CHR$(91): KE$=CHR$(9 
3) 

2390 PRINT"x start= ”KS$”-10’’KE$TAB(26); :L 
INEINPUTA$:IFA$="”THENXS=-10ELSEXS=VAL(A$) 

:IFXS>-1THEN2390 

2400 PR INT"x slut= ”KS$"10"KE$TAB(26);:LIN 
EINPUTA$:IFA$=”"THENXE=10ELSEXE=VAL(A$): IF 
XE<1THEN2400 

2410 PR INT"f start= "KS$"x start"KE$TAB(26 

);:LINEINPUTA$:IFA$=”"THENFS=OELSEFS=VAL(A 

$) :LINEINPUT’’å(b)en / (Dukket ";A$:IFA$=” 

B”0RA$=”b"THENSU=lELSESU=2 

2420 PR I NT "f s 1 u t= ”KS$”x slut’’KE$TAB(26); 

:LINEINPUTA$:IFA$=""THENFE=OELSEFE=VAL(A$) 
:LINEINPUT”å(b)en / (Dukket ";A$: IFA$=’’B" 
0RA$= ”b’’THENEU= 1 ELSEEU=2 
2430 AF=INT(191/(XE-XS)) 

2440 PRINT:PRINT"y kordinat for centrum="T 
AB(26);:LINEINPUTAI:IFA$=”"THENYK=96/AFELS 
EYK=VAL(A$) 

2450 PRINT: PRINT”graf helt ud (j/n) "KS$’’j 
”KE$TAB(26);: LINEINPUTA$: IFA$=”n’’0RA$="N”T 
HENHU=0ELSEHU=1 

2460 PRINT: PRINT’’net (j/n) "KS$”j ”KE$TAB(2 
6);:LINEINPUTA$:IFA$="n"0RA$=”N”THENNE=1EL 
SENE=0 

2470 COLOR15,4,4:SCREEN 2 
2480 OPEN"grp:"AS#1 
2490 AF =INT(191/(XE-XS)) 

2500 KX=INT(ABS(XS)/(XE-XS)*191):KY=INT(YK 
*AF):LINE(KX,0)-(KX,191),15:LINE(0,KY)-< 19 
1,KY),15 











1 2 


BYNTAX Årgang é=> nr. 12. 


2510 X=KX-INT(KX/AF)#AF:Y=KY-INT(KY/AF)*AF 
2520 IFHU=1THENS1 = -KX/AF: El =(191—KX)/AFELS 
EE1=XE:S1=XS 

2530 IFNE=0THENFORR=YTO191STEPAF:F0RT=XT01 
91STEPAF:PSET(T,R >,15:NEXTT,R 
2540 FORT=XTOl91STEPAF:LINE(T,KY-1)-(T,KY+ 
1),15:NEXT 

2550 F0RT=YT0191STEPAF:LINE(KX-1, T) -(KX+1, 
T),15:NEXT 
2560 IFFS=0THENFS=S1 
2570 IFFE=0THENFE=E1 

2580 IFSU>lTHENPSET(INT(KX+FS*AF-.5>, INT(K 
Y-FNF(FS)#AF-,5)),15:DRAW"r2d212u2”:IFSU=1 
THENPRESETSTEP(1,1)ELSEPSETSTEP(1,1),15 
2590 FORX=FSTOFESTEPl/AF 
2600 F=FNF(X)#AF 

2610 I FTJ = OORT1 = 1THENPSET(INT(KX+X#AF+. 5) , 
INT(KY-F+.5)),15: TJ = 1 

2620 IFT1=0THENLINE-(INT(KX+X&AF+.5),INT(K 
Y-F+,5)),15 
2630 NEXT 

2640 IFEU>1THENPSETSTEP(-1,-1),15:DRAW'V2d 
212u2”:IFEU=1THENPRESETSTEP(1,1)ELSEPSETST 
EP(1,1) ,15 

2650 LINE(0,0)-(191,0),4:LINE(0,191)-(191, 
191) ,4 

2660 FOR 1=1 TON 

2670 PSET(INT(KX+PX(I)#AF)-1,INT(KY-PY(I)* 
AF)-1),4:PRINT#1, CHR$(211) 

2680 NEXT 

2690 A$=INPUT$(1) 

2700 IFA$="n"ORA$=”N”THENTJ=0:SCREENO:CLOS 
E#1:G0T02390 

2710 IFA$= ”e”ORA$= *’E”THENCLOSE#l: GOTO2830 
2720 GOTO2690 

2730 X=X+1/AF:TJ=0:IFX>FETHEN2640ELSERESUM 
E2600 

2740 RETURN2370 

2750 CLS:PRINT”DU ØNSKER EN GRAF? (J/N)”; 
2760 INPUTA$ 

2770 IFA$=”J"OR A$="j"THEN2800 
2780 IFA$=”N"OR A$=”n”THEN40 
2790 GOTO2750 

2800 0NRGG0T02810,2840,2890 
2810 DEFFNF(X)=A+B#X 
2820 GOTO2310 

2830 ONRGGOTO350,1300,2020 

2840 ONDGOTO2850,2860,2870,2880 

2850 DEFFNF(X)=A+B(1)#X:GOTO2310 

2860 DEFFNF(X)=A+B(1)*X+B(2)#X"2:GOTO2310 

2870 DEFFNF(X)=A+B(1)#X+B(2)*X"2+B(3)*X"3: 

GOTO2310 

2880 DEFFNF(X) =A+B(1)#X+B(2)*X"2+B(3)#X / '3+ 
B(4) #X /v 4:GOTO2310 


2890 DEFFNF(X)=EXP(A)#EXP<B#X) 
2900 GOTO2310 
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UU111 

6CVR4 

N6UOW 

65070 

’SPGEL 

Q7POK 

UYJ7Y 

9FM57 

W58L6 

65080 

’L3UBW 

BMTBW 

7U4BJ 

MQA04 

1GAS9 

65090 

'ROXSL 

XDPB3 

QT80X 

P6Z13 

OFVPD 

65100 

'4820K 

UXMJX 

UWGRX 

EP63Y 

Y541J 

65110 

'6Z2QP 

70ZG3 

XE8GF 

6ENGQ 

6LQNV 

65120 

'6HGBE 

NKNV2 

JMR19 

OSR3Z 

MEG9E 

65130 

'BIS8J 

NAL74 

D1SUA 




Rettelser til SVI 318/328: 

40 CLS:SCREEN 0,0: DEFSNGA-Z 
2360 CLS:COLOR 15,4 
2370 TJ=0:SCREENO,0 
2470 COLOR15,4,4:SCREEN 1 
2480 ' 

2670 PSET(INT(KX+PX(I)#AF)-1,INT(KY-PY(I)* 
AF)-1),4:PRINTCHR$ (211) 

2700 IFA$="n”ORA$=”N”THENTJ=0:SCREENO:GOTO 
2390 

2710 IFA$="e"ORA$=”E”THEN2830 
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ORMEN DEN LANGE. 

Dette program viser en orm der krav¬ 
ler hen over skærmen. En nærmere be¬ 
skrivelse findes i Scientific Ameri¬ 
can nummer 12 1987 side 98-102. 

Ormen dannes af en række cirkler, og 
den synes at bevæge sig fordi der 
tilføjes en cirkel i den ene ende og 
slettes en i den anden. Tabellerne 
XCIRC og YCIRC husker cirklernes 
placering på skærmen, så at den ba¬ 
geste kan blive slettet. TAIL angi¬ 
ver hvilken plads i tabellen der 
svarer til ormens ende. Ved at bruge 
modulusfunktionen kommer plads num¬ 
mer 1 til at følge efter plads num¬ 
mer 25 (lin.460), Den sidste cirkel 
slettes i lin.470, og den nye tegnes 
i lin.600. Ormen må ikke lave for 
bratte bevægelser, det ser unatur¬ 
ligt ud. Så man kan ikke bare lægge 
RND til X- og Y-værdierne. DIR an¬ 
giver kravleretningen, og den kan 
kun variere plus/minus 10 grader, 
svarende til 0.1745 radianer (lin. 
490). Dette omsættes så til foran¬ 
dringen i X- og Y-værdierne i lin. 
520-530. Hvis ormen kravler ud over 
den ene side af skærmen, kommer den 
til syne fra den anden side (lin. 
540-570). 

Ofte kan man gøre et program hur¬ 
tigere ved at tilpasse det til ma¬ 
skinen det skal køre på. Det tager 
meget lang tid at beregne sinus og 
cosinus, og her er der ikke brug for 
den store nøjagtighed med mange de¬ 
cimaler. Så i stedet nøjes jeg med 
16 værdier, der kan slås op i tabel¬ 
lerne SI og CO (lin.40-90). AND 15 
sørger for at index i tabellerne 
holder sig inden for 0-15. Den samme 
bit-aritmetik klarer at ændre tallet 
-1 til 255, så ormen skifter side på 
skærmen. Som integer er -1 nemlig 
lutter binære ettaller, hvoraf vi 
tager de otte længst til højre med 
AND 255 (lin.190). Da 191 ikke kun 
består af ettere, må der bruges to 
linier på at holde ormen på skærmen 
i det lodrette plan (1 in.200-210). 

Det betyder nok mindre for hastig¬ 
heden at jeg har indført variabierne 
GX og GY, der står for gammel X og 
gammel Y. Så skal der kun slås op i 
XC .og YC en enkelt gang i lin.150 i 
stedet for både i lin.160 og 170. 

Prøv selv at sætte fut i andre pro¬ 
grammer ! 


5 ' Ormeprogram med større hastighed 
10 DEFINT A-Z: DEFSNG D 
20 DIM XC(25), YC(25) 

30 DIM SI(15) , CO(15) 

40 FOR N = 0 TO 15: READ SI(N): NEXT 
50 DATA 0, 2, 3, 4, 4. 4, 3, 2 
60 DATA 0,-2,-3,-4,-4,-4,-3,-2 
70 FOR N - 0 TO 15: READ CO(N): NEXT 
80 DATA 4, 4, 3, 2, 0,-2,-3,-4 
90 DATA -4,-4,-3,-2, 0, 2, 3, 4 
100 X = 100: Y = 100 'Startpunkt 
110 DI - 0: TA = 0 
120 DUMMY = RND(-TIME) 

130 COLOR 1,15: SCREEN 2 
140 TA = (TA+1) MOD 26 
150 GX = XC(TA): GY = YC(TA) 

160 CIRCLE(GX,GY),3,15 
170 PSET(GX,GY),9 'Slim ! 

180 DI - DI + (RND(1)-.5)*2 
190 X - (X+CO(DI AND 15)) AND 255 
200 Y = (Y+SI(DI AND 15)) MOD 192 
210 IF Y < 0 THEN Y = Y + 191 
220 CIRCLE(X,Y),3,1 
230 XC(TA) = X: YC(TA) = Y 
240 IF INKEY$ = "" THEN 140 
250 SCREEN 0 

300 PRINT "Originaludgaven kommer nu .. . 
310 PRINT: PRINT "Tryk på en tast 
320 S$ = INPUTS(1) 

330 CLEAR 

340 'Udgave næsten direkte skrevet 
350 'af efter Scientific American 
360 'nr 12/1987 side 101 
370 DIM XCIRC(25), YCIRC(25) 

380 XCIRC(1) = 100 
390 YCIRC(1) = 100 
400 DIR = 0 
410 TAIL = 1 
420 DUMMY - RND(-TIME) 

430 COLOR 1,15: SCREEN 2 

440 'Repeat 

450 WASTAIL = TAIL 

460 TAIL = (TAIL MOD 25) + 1 

470 CIRCLE(XCIRC(TAIL),YCIRC(TAIL)),3,15 

480 CHANGE = RND(l) 

490 IF CHANGE < .5 THEN DIR = DIR+.1745 
ELSE DIR = DIR-.1745 
500 X - XCIRC(WASTAIL) 

510 Y = YCIRC(WASTAIL) 

520 NX = X + 4 * COS(DIR) 

530 NY = Y + 4 * SIN(DIR) 

540 NX = NX MOD 256 '600 på PC 

550 NY = NY MOD 192 '200 på PC 

560 IF NX < 0 THEN NX = NX + 256 

570 IF NY < 0 THEN NY - NY + 192 

580 XCIRC(TAIL) = NX 

590 YCIRC(TAIL) = NY 

600 CIRCLE(NX,NY),3,1 

610 ’Until key pressed 

620 IF INKEYS = "" THEN GOTO 450 

630 SCREEN 0 

640 END 
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SVENSKA S I DAN 


D050 innehåller 5 får A 
detta varde. 


Så var det dags for ytterligare en 
del av vår mask1nspråksskola. Den 
hår gången kommer vi att gå igenom 
pekare. Pekare år inte så svårt 
som vissa tror. En pekare brukar 
oftast vara ett registerpar. Detta 
par brukar vara HL. HL gives ett 
adressvårde tex D050 (HL = D050 
eller H = DO och L = 50). Eftersom 
HL år variabelt så kan HL antaga 
vilka vården som helst. 

En liten parantes for er som undrar 
vad en adress år så kommer hår en 
liten forklaring på detta. Minnet 
består av ett antal adresser. Var- 
je adress innehåller ett åttabitars 
tal. Talet kan antingen vara ett 
kommado eller innehålla ett data- 
varde. Slut parantes. 

Vi sa tidigare att HL pekade på 
adressen D050. På denna adress 
ligger då ett data varde. Detta 
datavårde kan sedan låggas i regis¬ 
ter A (ackumulatorn) med hjalp av 
ett kommando som vi kommer att ta 
upp lite senare. Vårdet kan sedan 
skrivas ut på skårmen med hjalp av 
OUTDO. 


CP n jåmfor register A med 

det som såtts in i 
stållet for n. Om A=n 
får flaggan Z vårdet 1. 
Om A<n får flaggan C 
vårdet 1 och om A>=n får 
flaggan C vårdet 0. 

RET Z utfor kommadot RET 

endast då Z=l. 

INC HL okar (increase) HL:s 

varde med ett. Om HL = 
D050 biir HL = D051 
efter INC HL. 

JP nn Hoppar till adressen nn. 


Mycket nytt men hår går det fort 
framåt. Om du inte forstår det nu 
så lår du nog forstå det efter vårt 
programexempe1. 


Nu till det utlovade programmen: 


Forst BASIC-programmet som matar in 
den onskade raden: 


Vi kommer också så smått att gå in 
på något som heter flaggor. De mest 
anvåndbara flaggorna år: 

Z = Nollflagga,Zeroflagga 
C = Carry 

Dessa flaggor anvånds som vi 1lkor 
vid hopp. Eftersom en flagga bara 
ligger på en bit kan dess vårde 
bara vara 1 eller 0. 1 når det år 
SANT och 0 når det år FALSKT. Når- 
mare forklaring kommer efter hånd i 
denna kurs. 

De nya kommandon vi nu kommer att 
gå igenom år: 

LD HL,nn Ladda HL med ett 16-bit- 
ars tal. Tex LD HL.D050. 

LD A,(HL) A laddas med det vårde 
som HL pekar på dvs om 


10 CLS 

20 LINEINPUT Ab 
30 FOR 1=1 TO LEN(Ab) 

40 POKE &HD04F+I,ASC(MIDO(Ab,1,1)) 
50 NEXT I 

60 POKE &HD04F+I,255 

Når ni startar detta program kommer 
en tom skårrn upp med en markor i 
det ovre vånstra hornet. På denna 
rad skriver ni in ett meddelånde 
och trycker sedan på ENTER. Prog¬ 
rammet dversåtter nu bokståverna, 
som ni skrivit in, till ASCII-koder 
som i sin tur låggs i adresserna 
D050 och framåt (beroende på lång- 
den på det som du skrivit in) . 
Al Ira sist lågger .vi in ett kont¬ 
rol ltecken som talar om for 
maskinspråksprogrammet når textra- 
den år slut. Spara nu detta program 
efter det att ni kort det. Skriv 
sedan NEW. 
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Och nu assemblerprogrammet: 

DOOO: LD HL,D'050 
D003: LD A,(HL) 

D004: CP FF 
D006: RET Z 
D007: CALL OUTDO 
DOOA: INC HL 
DOOB: JP D003 

Det ni ser langst till vanster ar 
adresserna som de olika kommandona 
hamnar på. Anledningen till att vi 
visar dem år att vi har med en 
hoppinstruktion (JP D003), som 
hoppar till adressen D003. For er 
som har assemblator år vi nog når- 
mare en korrekt beskrivning av 
programmet om vi skriver så hår: 

LD HL,D050 
LABEL : LD A, (HL) 

CP FF 

RET Z 

CALL OUTDO 

INC HL 

JP LABEL 

Vad gor då det hår programmet? Jo 
om vi borj ar från borjan, vi lket 
brukar vara den basta losningen på 
al la problem, så kan vi dår konsta- 
tera att vi ger registerparet HL 
vårdet D050. D050 år i det hår 

fallet den adress dår datan for er 
inskrivna text startar. Det som 
sedan sker i kommandot LD A,(HL) år 
att registret A får det vårde som 
HL pekar på. Detta vårde år alltså 
inte D050, utan en ASC1Ikod från er 
inskrivna text, tex C3. Sen hittar 
vi CP FF. Vad år nu detta då? Jo i 
slutet av ert textmeddelande satte 
vi ju ett kontro11tecken som fak¬ 
tiskt var FF (255). Det som sker 
hår år att register A fick ett 
vårde som kom från det som regis¬ 
terpar HL pekade på och om detta 
vårde år FF så betyder det också 
att er textsnutt år slut och det år 
dags att återgå till BASIC:en. Som 
vi sa tidigare så blev Z flaggan 
lika med 1 om register A var lika 


med talet n (i detta fajlet vårdet 
FF), alltså har detta; kommandot 
satt flaggan Z till ett .om register 
A -FF. Sen kommer %å RET Z! 
Javisst, om register A var 255 så 
var flaggan Z=1 och vi 1lkoret for 
att få komma tillbaka till BASIC:en 
år uppfyllt. Om vi likoret ej år 
uppfyllt fortsåtter programmet bara 
med att utfora nåsta rad som år 
CALL OUTDO. Detta kommando kånner 
vi igen sen forrå kursen. Det skri¬ 
ver ut vårdet (ASCIIkoden) i regis¬ 
ter A på skårmen. Vad har vi efter 
detta då? Jo INC HL, som år något 
nytt. Detta kommando okade vårdet 
på registerpar HL, som denna gång 
anvånds som pekare, och talet som 
var D050 biir nu D051. Det betyder 
att nu pekar HL på bokstav nummer 
två i din skrivna text. HL kommer 
sedan givetvis att okas så lange 
det finns bokståver i ditt rnedde- 
lande. Detta skoter ju CP FF till 
oss. Slut på forklaringar. 

Om vi nu oversåtter vårt programex- 
empel i assembler till maskinspråk 
mha vår lilla maskinkodslista, som 
ni forhoppningsvis har hunnit skaf- 
fa er vid det hår laget, biir 
resultatet antagligen så hår: 


LD HL,D050 
LD A,(HL) 
CP FF 
RET Z 

CALL OUTDO 
INC HL 
JP D003 


= 21,50,DO 
= 7E 
- FE,FF 
= C8 

= CD,18,00 
= 23 

= C3,03,DO 


Det var al la nodvåndiga koder och 
ni kan nu antagligen sjålv systemet 
for att hitta koderna till assem- 
blerinstruktionerna. Detta betyder 
att vi i fortsåttningen skriver 
rena assemblerprogram och ni blir 
dårfor tvingade att sjålv oversåtta 
dessa program (eller skaffa en 
assemblator). 


For sista gången ges alltså hår ett 
BASIC exempel som skriver in era 
maskinspråkskoder. Nu BASICprogram- 
met: 



1 
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10 CLS : ADR=&HD000 
20 READ An 

30 IF AB-"XX" THEN END 
40 POKE ADR,VAL("&H"+An) 

50 ADR=ADR+1 
60 GOTO 20 

70 DATA 21,50,DO,7E,FE,FF 
80 DATA C8,CD,18,00,23 
90 DATA C3,03,DO,XX 

Nar ni nu kort detta program och 
vi 11 starta ert maskinspråk skriver 
ni: 

DEFUSR=&HD000 
Z=USR(0) 

Vi 11 ni spara era programsnuttar i 
framtiden (inraknat detta), skriver 
ni BSAVE "l:Namn",&hstartadr,&hslu- 
tadr, Sihprogramstartsadr . Om ni ej 
har diskdrive så hoppa over 1: . 

I detta fallet biir det alltså: 

BSAVE "1:Namn",&hDOOO,&HDOOC,&HDOOO 

Obs! Detta sparar alltså inte din 
inmatade textrad utan bara program¬ 
met som skriver ut den. 

Det var allt for idag (allt och 
allt. Det var ganska långt fak¬ 
tiskt) och må era ovånners skrivare 
skriva med NLQ(Not Letter Quality). 


MAGNUS OCH JOAKIM OCH TORNHILL OCH 
BALLDIN 



Æ 0 Å PÅ SKÆRMEN. 


10 'Dette program bruger hook HINIP 
20 'til at definere de danske tegn 
30 'hver gang SCREEN kaldes. Tegnene 
40 'placeres i området SLTWRK, så de 
50 'bevares indtil maskinen bliver 
60 ‘slukket. SLTWRK bruges kun af ud- 
70 'videlses-ROM. 

100 DEFINT A-Z 

110 'Hurtigere kørsel med integers 
120 AD - &HFD3Q: NR = 80: GOSUB 180 
130 AD = &HFDC7: NR = 3: GOSUB 180 

140 SCREEN 0 

150 PRINT "Dansk tegnsæt: ÆØ A æøå” 

160 END 

170 'Subrutine poke 
180 FOR AD=AD TO AD+NR 
190 READ N: POKE AD,N 
200 NEXT 
210 RETURN 

220 DATA 205,33,7,17,216,2,1,0,0,205 
230 DATA 66,253,17,216,3,1,24,0,42,36 
240 DATA 249,25,235,33,81,253,9,1,24 
250 DATA 0,195,92,0,120,160,160,248 
260 DATA 160,160,184,0,112,136,152 
270 DATA 168,200,136,112,0,32,32,112 
280 DATA 136,248,136,136,0,0,0,208,40 
290 DATA 248,160,88,0,0,8,112,152,168 
300 DATA 200,112,128,32,0,112,8,120 
310 DATA 136,120,0 
320 DATA 241,195,48,253 

Hvis de danske tegn defineres inde fra 
Basic, holder de kun indtil man skifY 
ter skærmmode. Ovenstående program la¬ 
der de danske bogstaver overleve, men 
de kan ikke vises på en grafikskærm, 
for ved skrivning på grafikskærmen ta¬ 
ges tegnene altid fra ROM. 

ÆØÅ og æøå ligger på tasterne C \ 1 { I ), 
så de svarer til en almindelig prin¬ 
ter. Det betyder at man skal bruge 
skiftenøglen for at skrive de små 
bogstaver ! 


/ 
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LISTEBESKYTTELSE 


I disse AIDS-iider er det blevet 
så moderne at beskytte både det ene 
og det andet. Her hopper jeg med på 
vognen med et program der kan list¬ 
beskytte et program. 

Af: Kim Andersen 

For et stykke tid siden fik jeg 
fra Tomas Abrahamsson i Sverige 
nogle programmer til BIB. Et af dem 
havde han listbeskyttet så man fik 
en fire-liniers tekst ud på skærmen 
når man forsøgte at liste program¬ 
met. Jeg lurede ideen af og har nu 
lavet en maskinkode rutine der kan 
listbeskytte et Basic-program efter 
samme koncept. Først taster man 
nedestående Basic-program ind. I 
linierne 100-130 står teksten man 
vil få skrevet ud på skærmen ved 
listning. Denne kan frit ændres 
efter behag (dog max. 30 tegn pr. 
linie). Efter indtastning gemmes 
evt. Basicprogrammet på bånd/disk 
under et eller andet navn, hvis man 
er et rigtigt sikkerhedsmenneske. 
Nu køres programmet, og er det 
korrekt indtastet (ellers bruger 
man TJEKSUM programmet), vil man på 
bånd/disk få gemt en fil 
"BESKYT. BIN’’ (på bånd "BESKYT"). Nu 
kan rutinen bruges. Har man et 
Basic-program man vil have 
beskyttet, skriver man 
'BLOAD"BESKYT.BIN",R'. Prøver man 
nu at liste programmet, får man kun 
fire liniers tekst. Programmet kan 
fint RUN 'es og man kan også fint 
SAVE'e det. 

For at beskyttelsen skal virke 
ordentlig, skal man huske et par 
ting ved det Basic-program, man vil 
have beskyttet: Hvis programmet er 
lavet således at det på et 
tidspunkt går tilbage i Basic, skal 
man i sidste programlinie skrive 
'xx P0KE&H8100,0:P0KE&H8101,0:END', 
el 1ers vil man igen kunne 1 iste 
programmet. Har man et program der 
ikke går til bage til Basic, skal 


man være opmærksom på at CTRL/STOP 
ikke virker, og man da må lave en 
kodeanordning, hvis man selv vil 
kunne gå ud af programmet. 

Dette var ordene. Glædelig 
indtastning! 


10 ’ LIST-BESKYT MSX-version 1.0 
20 ' Kim Andersen 1989 
30 ' 

40 RESTORE100 
50 AD=55585! 

60 FORT=0TO3:READA$:A$=LEFT$(A$+SPACE$(30) 
,30) 

70 F0RR=1T030:POKEAD+R,ASC(MID$(A$,R, 1)):N 
EXTR 

80 AD=AD+50 
90 NEXTT 

100 DATA Dette program er listbeskyttet 
110 DATA af Kim Andersen efter ide 
120 DATA af Tomas Abrahamsson 
130 DATA Syntax’en 1989 
140 ' 

150 RESTORE 220:J=0 

160 FORI=&HD800TO&HD911 

170 READX$: POKEI, VAL (”8(H”+X$) 

180 J=J+VAL("&H"+X$):NEXTI 

190 IFJ<>21965THENPRINT"DATAFEJL!STOP 

200 PRINT”Gør bånd/disk klar og tryk SPACE 

**: A$=INPUT$(1): IFA$<>" "THEN90 ELSE BSAVE" 

BESKYT.BIN”,&HD800,&HD9D9 

210 ' 

220 DATA CD,41,00,F3,21,12,D9,0E 
230 DATA 04,06,10,36,42,23,10,FB 
240 DATA 06,1E,23,10,FD,36,C9,23 
250 DATA 36,OD,23,36,0A,23,36,00 
260 DATA 23,OD,20,E5,21,03,80,3E 
270 DATA 05,BE,38,04,23,AF,BE,C8 
280 DATA 21,AC,F3,11,94,08,73,23 
290 DATA 72,AF,CD,48,08,01,B3,D8 
300 DATA 11,12,D9,60,69,3E,FF,BE 
310 DATA 28,22,E5,CD,7B,52,E1,3E 
320 DATA 13,85,6F,3E,00,8C,67,44 
330 DATA 4D,62,6B,E5,CD,7B,52,E1 
340 DATA 3E,32,85,6F,3E,00,8C,67 
350 DATA 54,5D,18,D7,21,00,D9,CD 
360 DATA 7B,52,21,06,D9,CD,7B,52 
370 DATA 21,F8,F3,36,F8,23,36,FB 
380 DATA 23,36,F0,23,36,FB,21,F0 
390 DATA FB,36,OB,23,06,06,36,OD 
400 DATA 23,10,FB,C9,21,00,80,06 
410 DATA 00,3E,42,BE,20,02,36,7F 
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420 DATA 23,10,F6,AF,CD,48,08,21 
430 DATA 00,81,36,00,23,36,00, CD 
440 DATA 44,00,C9,31,20,50 
450 DATA 45,26,48,46,42,42,30,2C 
460 DATA 26,48,30,3A,27,00,32,20 
470 DATA 50,4F,4B,45,26,48,46,42 
480 DATA 42,31,2C,26,48,31,3A,27 
490 DATA 00,33,20,50,4F,4B,45,26 
500 DATA 48,38,31,30,30,2C,26,48 
510 DATA 38,3A,27,00,34,20,50,4F 
520 DATA 4B,45,26,48,38,31,30,31 
530 DATA 2C,31,32,39,3A,27,00,FF 
540 DATA 35,20,27,OD,OA,00,41,3D 
550 DATA 55,53,52,39,28,30,29,OD 
560 DATA OA,00,00,00,00,00,00,00 
65000 '&&1 Tjeksum 
65010 'K 

65020 '11134 TV29G 1KS19 RYEYV 1QJM0 
65030 'V99VM XF66N K1P52 FAYSN LDYIB 
65040 'TP5GH M 



I MSX Basic kan variabel navne være 
næsten lige så lange som man har 
lyst til, men det er kun de første 
to tegn der har betydning internt. 
Især når man indtaster programmer 
fra andre blade kan det give proble¬ 
mer . For eksempe1 forekom der i det 
originale ormeprogram variabierne 
NEWX og NEWY. De vil af MSX Basic 
bl ive betragtet som en enkelt vari¬ 
abel ved navn NE ! Måske kan det 
følgende lille maskinkodeprogram væ¬ 
re til nytte. Det viser de interne 
navne på alle eksisterende variable. 
Der er temmelig mange tal at skrive 
ind, og jeg har ikke udregnet nogen 
checksum, så du må være omhygge lig! 
Ti 1 gengæld behøver det ikke at lig¬ 
ge på en bestemt adresse, sådan som 
mange maskinkodeprogrammer. 


FÅ ORDEN PÅ 
VARIABLERNE 


10 'Denne rutine viser de i øjeblikket 
20 'eksisterende variable i den række- 
30 'følge de blev skabt. Variabierne 
40 'udskrives ordnet efter type. 

50 'Skriv PRINT USR(O) 

60 DEFINT A-Z 

70 CLEAR 200,&HE000 'Rutinen kan pla- 
80 'ceres næsten hvorsomhelst, bare 
90 'der er plads til de 264 bytes. 

100 AD - &HE000 : DEFUSR = AD 
110 FOR AD - AD TO AD + 263 
120 READ N : POKE AD,N 
130 NEXT 

200 DATA 33,225,233,34,246,247,205 
210 DATA 246,247,229,221,225,17,193,0 
220 DATA 25,221,117,63,221,116,64,221 
230 DATA 117,82,221,116,83,17,58,0,25 
240 DATA 34,196,254,17,248,255,25,34 
250 DATA 194,254,62,13,223,62,10,223 
260 DATA 253,42,196,254,253,54,3,4 
270 DATA 175,71,253,119,0,42,194,246 
280 DATA 237,91,196,246,231,48,9,205 
290 DATA 202,224,79,9,24,246,24,232 
300 DATA 42,196,246,237,91,198,246 
310 DATA 231,48,68,205,202,224,35,32 
320 DATA 54,35,175,71,253,42,196,254 
330 DATA 253,119,1,126,253,119,2,135 
340 DATA 79,9,253,126,1,167,62,40,40 
350 DATA 2,62,44,253,119,1,223,86,43 
360 DATA 94,229,235,205,18,52,225,43 
370 DATA 253,42,196,254,253,53,2,32 
380 DATA 223,62,41,223,43,86,43,94,25 
390 DATA 35,35,24,181,253,42,196,254 
400 DATA 253,126,0,167,40,10,62,13 
410 DATA 223,62,10,223,253,42,196,254 
420 DATA 42,194,254,35,34,194,254,253 
430 DATA 53,3,32,144,62,3,50,99,246 
440 DATA 33,11,0,34,248,247,201,126 
450 DATA 221,42,194,254,221,190,0,35 
460 DATA 245,32,34,221,78,4,253,42 
470 DATA 196,254,253,126,0,167,253,54 
480 DATA 0,1,40,6,62,44,223,62,32,223 
490 DATA 126,223,35,126,167,196,24,0 
500 DATA 121,223,62,35,35,241,201,2,4 
510 DATA 8,3,37,33,35,36,0,0,0,0 
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KARATE TIL 
SVI 318/328 


1 CLS 

2 PRINT" A * A * A * A KARATE A K A * A X A " 

5 INPUT "MI LKEN SVAR I G'HETS GRAD";J 
10 SCREEN 1.3 
15 GOTO 2000 

20 DATA &B000000 1 1 .&:B 10000000 
30 DATA &B0000001 1 .&iB 10000000 
40 DATA &B0000001 1 :&:B10000000 
50 DATA &B00000001 f i<B00000000 
60 DATA &.B000001 1 1 .&B1 1000000 
70 DATA kBOOOOOl 1 i'.&Bl 1000000 
80 DATA ^B00000 1 1 1 1&:B 1 1000000 
90 DATA &B0000011l.kBl1000000 
100 DATA^BOOOOOl11;&B11000000 
110 DATAfccBOQOOOO11.&B100000QG 
120 DATA&B 0000001 1 i &B 1 0 0 0 0 0 G 0 
130 DATAftsBO 00000 10.&B10000000 
140 DATA&B00000010.&B10000000 
150 DATAitB00000 010.&B 10000000 
160 DATA&tBOOOOOO 1 0 1&:B 10000000 
170 DATA&iBO00000 1 0. &:B 10000000 
400 DATA icBOOOOOOOO.&BOOOOOOOO 
410 DATA &B1 1 lOOOOO^BOOOl 1000 
420 DATA fccBi 1 100000i&BOO100000 
430 DATA &B11 i 11111ABOIOOOOOO 
440 DATA &B001i 1100.&B10000000 
450 DATA fttBOOl11111.ftcBOOOOOOOO 
460 DATA ftcBOO 1 1 1 i 1 1 .ScBOOOOOOOO 
470 DATA fccBOOlOOi i 1’.kBOOOOOOOO 
480 DATA &BG01110111&B00000000 
490 DATA fcBOOOOOOOl ’.&BOOOGOOOO 
500 DATA iiB0000000 1 »ikBOOOGOøOO 
510 DATA fttBOOOOOOO 1 .fccB00000000 
520 DATA &B0G000001l&BOOOOOOOO 
530 DATA &B00000G01.&BOOOOGOOO 
540 DATA &.BG0000001 .krBOOOOOOOO 
545 DATA fccBOOøøøOOO^BOOQQOOGO 
550 DATA &B00000001 L 1 1000000 
560 DATA ftcBOODOOCOi ’.&Bl 1000000 
570 DATA JcBOGOOOOOl i&tBi 1000000 
580 DATA iiEOOOOOOOO.&BlOOOOOOO 
590 DATA (kBOOOOOOOil&Bllllll 10 
600 DATA ^BOOOOOOOl.acBl 1000000 
610 DATA &B00000001l&Bl1000000 
620 DATA &:BG0ø0Gøøi .&B1 1 1 1 1000 
630 DATA fcBOOOOOOO1 ’.icB 11000000 
640 DATA kBOOOOOOOi‘.&B1 1000000 
650 DATA &B00000001 iicBl 1000000 
660 DATA fciBOOOOOOOr.kBOlOOOOOO 
670 DATA &BG000G00i :&:B00100000 
630 DATA idBOOOOOO 1 0 .fcsBOOO 10000 
690 DATA &B000001D0;&B00001000 
700 DATA &B00001000.&BOOOO1000 
720 DATA &B00000000 AicBOOOOOOOO 
730 DATA &iB00000000.&<B00000000 
740 DATA fciBOOOOOOOO i&tBOOOOOOOO 
750 DATA &B00000011 .&B 1 0000000 
760 DATA &B0000001 1 IfciBlOOOOOOO 
770 DATA &B000000 1 1 L&iBlOOOOOOO 
780 DATA fciBOOOOCOOl AitBOOOOOOOO 
790 DATA &B00000111^B11000000 
800 DATA fctBOOOOOl11LfccBl1000000 
810 DATA &B0000101 1 .&tB 1 0 1 00000 
320 DATA fc:B000 1001 1 l&B 10010000 
830 DATA fccBOOlOOOl 1 LitBlOOOlOOO 
840 DATA fctBO1000011l&B10000100 
350 DATA &B 1000001 1 .4tB 10000010 
860 DATA fteB11111111IfteB11111110 


370 
880 
900 
910 
920 
930 
940 
950 
960 
970 
930 
990 
1 000 
1010 
1020 
1030 
1035 
1050 
1060 
1070 
1030 
1090 
1 I 00 
1110 
1 120 
1 130 
I 140 
1 150 
1 160 
1 170 
! 180 
1 190 
1 195 
i 196 
! 193 
4 1 99 
1200 
1201 
12 02 

1203 

1204 

1205 

1206 
12 07 
1203 

1209 

1210 
1211 
1212 

1213 

1214 
J215 
1216 
i 2 18 
12 1 ? 


i .£ c u 

1221 
1222 
1223 
1 224 

1225 

1226 

1227 

1228 

1229 

1230 

1244 

1245 

1246 

1247 
1243 

1249 

1250 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
D^TA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT i\ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FORS' 
S* 


kBOOOOOOOO.&BOOOOOOOO 
&B00000000i&B00000000 
icBOOOl 1 OOO'.&BOOOQOl 1 1 
^B00000 1 00 '.tcB 000001 1 1 
kBOOOOOOlO^Bl1111111 
&B00000001l&BOOl11100 
&B000n0000;&cBl 1 111100 
&BG00000G0;&B11111100 
^cBOOOOOOOO .&B 11 100100 
kBOOOOØOOOl&Bl 1011 100 
J'BOOCOQØOO .&8 1000Q000 

&booo.ooqoo;&b 10000000 

(LBGO000OGO .<LB 10000000 
kS'OOOOOOOOiiiB10000000 
&B00000000 - .&B 10000000 
&B00000000 


4:300000000 
&B0000G0 1 1 
feBOOOOOOl1 
i'BOOOOOO) 1 
l'BOOOOOOOl 
kBOl 311111 
8:8000000 1 1 
&BOOOOOO11 
JxcBOOO 1.5 1 1 1 
4.B000000 1 1 
4:30000001 1 
GiBOOOOOO 1 1 
4:600000010 
4:800000 100 
4:B0000 1000 
4<B0GQ10000 
4:BQ0G 10000 
8:300 000000 
kBOOOOOOOO 
4:B00000000 
4:800000001 
4:600000001 
&BQOOOOOC1 
4:800000000 
ftiBOOOOOO 1 1 
4:300000 101 
4:B 0000001 1 
4:80000000 1 
iiBOOOOOOO 1 

kBoooooooi 

8:90000000 1 
4:BG000000 1 
&B00G0111 i 
4.B00000000 
?:BOOOOOOOO 
00000000 
4:80000001 1 
4.-B00000011 
4<B0000001 1 
4:B00 00000 1 
4:B01 111111 
4:80000001 1 
4:B0000001 1 
4:80000000 i 
4:B0000001 1 
4:B00000100 
&.BOOOOO 100 
&.B00000 100 
&B000G0100 
4.B00 000000 
= OT07 


JcBlOOOOOOO 
4:B0000000Q 
4:B10000000 
acBlOOOOOOO 
4:B i 0000000 
4:BQ000000Q 
4cB 10000000 
4:B 1 0000000 
4:B 10000000 
ixB 1 0000000 
&B10000000 
4cB10000000 
&:B 10000000 
feiB10000000 
4tB 10000000 

&iB0 1 000000 
^BOOIOOOOO 
^BOOOIOOOO 

acBoooooooo 

^BOOOOOOOO 
i:B00000000 
fttB 1 1000000 
fecB11000000 
&B11000000 
i:B 10000000 
11111110 
icB 1 1000000 
8kB 1 1000000 
&iB 10000000 
&cB 1 1000000 
&.-B00 1 00000 
acBOOlOOOOO 
UltBOO 100000 
!kB00 100000 
SitBOOOOOOOO 
^BOOOOOOOO 
&B000000G0 
^BIOOOOOOO 
^'BIOOOOOOO 
8«: B 10000000 

^boooooooo 
a<Bi loooooo 

'4cB 10100000 
&B11000000 
10000000 
a^Biooooooo 

4<B 10000000 
4tB 1 0000000 
ixB 10000000 
(kBl 1 1 10000 
&B00000000 


J " " 

FORA=1TO16 
READ X.Y 
S*=S$+CHR*<X) 
T^=T^+CHR*<Y) 
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1251 
1240 
1245 
1280 
1285 
1220 
1295 
1294 
1297 

1300 

1301 

1304 

1305 
1304 
1307 
1303 
SE 1309 

1309 IF 
SE 1310 

1310 ON 
40.1350 

1311 ON 
20.2530 

1312 IF 

1313 IF 


NEXT A 

SPRITE*<S)=S*+T* 

NEXT S 
Q= 13 
U= 1 s F= 1 
W=1 15 
S= 0:Z= 0 
P=192 s 0=115 

PUT SPRITE 3.< 110.30).15.3 
PUT SPRITE 1.<Q.W). 1 .S 
PUT SPRITE 2. <P O).9.Z 
IF QMS3 THEN Q=183 
PC40 THEN P=40 
P>230 THEN P=230 
Q<5 THEN Q=5 

PCQ+14 AND P>Q THEN 3000 EL 


IF 

IF 

IF 

IF 


Q>P- 15 AND QCP THEN 2200 EL 


STI Cl<< 1 ) GOSUB 1320 
1340.1370.1330.1390 
STICR<2> GOSUB 2500 
2540.2550.2540.2570 
(K5 THEN 0=5 
P> 250 THEN P=250 
1315 GOTO 1300 
1320 IF STRIG < 
s RETURN 
1330 RETURN 

1340 Q=Q+J:IF STRIGC1) 


1330.13 
2510.25 


1) THEN S=2 ELSE S=0 


THEN S=4 ELS 


E S=0:RETURN 
1350 RETURN 

1340 IF STRIGCi) THEN S=1ELSE S=0:R 
ETURN 

1370 RETURN 
1380 Q=Q-J:RETURN 
1390 RETURN 
1400 RETURN 
2000 COLOR 1.5.5 
2010 SCREEN 1 

2020 LINET 0. 145)-<255. 145).2 

2021 LOCATE'0.110 

2022 F- RI NT " . , , r -, " 

2023 PRINT" M I NI 1-1 " 

2024 PR I NT 11 44 I ) H-H 11 

2025 PR I NT" 444444-44 " 

2024 COLOR 9.IsLOCATE 204.110 
2027 PRINT" .4—1—i—*—i—r-r" 

2023 PRINT" 

1-4-4444-44” 

2029 PRINT" 

H4-H44-4" 

2030 PRINT" 

i-4444-444" 

2039 PAINT< 150. 140).2 

2040 CIRCLET100.5).20.4 
2050 PAINT<100.5).4 

2040 COLOR 1.3:L0CATE, 90. 150 
2070 PRINT" I " / n ri n -r i —" 

2080 PRINT" 1/ H M W 

I F" 

2090 PRINT" X~\ IN I I l\ I I 

I I /~\" 

2100 PRINT” / N I N- 

— i / \» 

2JIJ_0 „ PRINT " ==.-=-.===== 

iTTs PLAY"L3003EBGE04C03GE04DDD03D6 
GF#F#" 

2114 PLAY"L3003EBGE04C03GE03DDD05DG 
GF44F4403EEE" 

2117 LINET 100.50)-< 150.70).4.BF 
2120 COLOR 3.5.1 


2130 GOTO 20 

2200 IF S=1 OR S=2 OR S=4 THEN 2205 
ELSE 1310 

2205 COLOR 3.5,lsLOCATE 43.50 
2207 SOUND 717 sSOUND 8.14sS0UND 12. 
30sSOUND 11.OsSOUND 13;1 s FORD=1TO50 
OsNEXTD:SOUND 3.0 sSOUND 7.8!SOUND 3 
,14 

2210 PRINT" I i I T"" 

2220 PRINT" 1-4 1 I " 

2230 PRINT" III I " 

2240 print" » 

2242 LOCATE P.0-20 s PRINT"OH SHIT!” 

2244 FORA=1TOSOOsNEXTA 

2245 COLOR 5.5 sLOCATE 48.50 
2244 PRINT" I ' I I T" 

2247 PRINT" 1-4 I I " 

2243 PRINT" III I " 

2249 PRINT" XXXXXXXX" 

2250 LOCATE P.O-20 s PRINT"OH SHIT!" 

2251 Q= 7 0 s P=1S 0 s S= 0 

2252 U=U+1 s GOTO 4025 

2500 IF STRIG <2) THÉN Z=5 ELSE 2=0 

sR eturn 

2510 RETURN 
2520 P=P+Js RETURN 
2530 RETURN 

2540 IF STRIGC2) THEN Z=4 ELSE Z=0s 

RETURN 

2550 RETURN 

2540 P=P-JsIF STRIG< 2) THEN Z=7 ELS 
E Z=0s RETURN 
2570 RETURN 

3000 IF 2=4 OR 2=5 OR 2=7 THEN 3010 
ELSE 1309 

3010 COLOR 3.5.Is LOCATE 150.50 
3015 SOUND 7.7 i SOUND 3.14 sSOUND 12. 
30 sSOUND 11.OsSOUND 13 i 1 s FQRD= 1TO50 
0:NEXT D s SOOND 8.0:SOUND 7.3:SOUND 

8. 14 

3020 PRINT" I I I T" 

3030 PRINT" 

I—I I I " 

3040 PRINT" 

III I " 

3050 PRINT" 

3055 LOCATE Q.N-2 0 s PRINT"OH NO!" 
3040 FORA=1TOSOO sNEXTA 
3070 COLOR 5.5 sLOCATE 150.50 
3080 PRINT" I I I T" 

3090 PRINT" 
i— i i I " 

3095 PRINT" 

III I " 

4000 PRINT" 

'syyyyw/y ." 

4 005 LOCATE Q.W-20 s PRIMT"OH NO!" 
4010 P=150:0=70:2=0 
4 020 F=F+1 s GOTO 5500 

4025 COLOR 3.5:L0CATE 10.10:PRINT"S 
CORE s " ! U 

4 030 F ORA=1T0500 sNEXT AsIF U=10 THE 
N 4035 ELSE 4031 

4 031 FORA=1T0500 sNEXT AsIF U=20 THE 
N GOTO 4000 

4032 COLO R 5.5:LOCATE 12.10 s PRINT" 

4033 GOTO 1310 

4 035 COLOR 15.5 sLOCATE 102.10 

404 0 PR I NT "I ‘—-1" 

4050 PRINT" 

OOD I" 


I UERY G 
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4060 PRINT” I 

I" 

4070 FORA=1TO 1000 sNEXT A 
4030 COLOR 5.5 s LOCATE 102.10 

4090 PRINT"I - *-i" 

5000 PRINT" I CERY 6 

OOD I" 

5010 PRINT" I 

I" 

5020 ClRCLE<100.5>,20.6sPAINT<100.5 
) . 6 s GOTO 1310 ' 

5500 COLOR 3.5 s LOCATE 200.10 s PRINT" 
SCORE:"5 F 

5505 FORA=1T0500:NEXT AsIF F=10 THE 
N GOTO 5535 ELSE 5510 
5510 FORA=IT0500 sNEXT AsIF F=20 THE 
N GOTO 7000 

552 0 C OLOR 5.5 sLOCATE 202 .IOsPRINT" 
5530 GOTO 1310 

5535 COLOR 15.5 sLOCATE 102.10 

554 0 PRINT "I -1" 

5560 PRINT" I CERY G 

OOD I" 

5570 PRINT" I 

I" 

5580 FORA=1TO1000sNEXT A 
5590 COLOR 5.5 sLOCATE 102.10 

5600 PRINT "I -1 --1" 

5610 PRINT" 1 MERY G 

OOD I" 



5630 ClRCLE<100.5).20.6sPAINT<100.5 
).6 s GOTO 1310 ' 

6000 SCREEN 1.3 sLINE<0.0)-<255.192) 
.15.BF 

6010 CIRCLE(123.96).90.9 

6020 PAINT< 123.96).9 

6040 COLOR 1.15. 15 sLOCATE 50.80 

6050 PRINT"BLACK WARRIOR IS THE WIN 

NER" 

6060 PRINT" THANKS FOR A GO 

OD FIGHT" 

6065 FORA=1T02000 sNEXTA 

6070 END _ 

7000 SCREEN 1.3 sLINEC0.0)-<255.192) 
.15.BF 

7010 CIRCLE<128.96).90.9 
7020 PAINT< 128.96).9 
7040 LOCATE 50)80 

7050 PRINT"RED WARRIOR IS THE WINNE 
R M 

■*055 PRINT" T HANK S FOR A GO 

OD FIGHT" 

7060 FORA=1T02000 sNEXTA 
7070 END 


Med venlig Hilsen 
Magnus Buh r e 



! 




gYNTAX Årgang nr .2 





KØBES 

MSX diskettestation (3.5" eller 
5.25") med controler købes. 

Henv. Kim Andersen 
02 94 26 74 



Kan du skaf-fe klubben nye medlemmer 
har du muligheden for få bånd el ler- 
di setter i præmie. 

Du må ikke selv være "skaffet" af 
andre! 

Du skal selv være medlem i 1989 ! 
Man kan altså ikke rnelde hinanden 
ind i klubben og derved opnå 
dobbelt præmie. 

\/ed et nyt medlem forstås en der 
ikke var medlem i 19SS ! 

Præmie i 

Pr. indme1dt med 1 em kan du få 
2 bånd 
el ler- 

5 stk. 5 i/4 ’’ disk 
el 1 er 

2 stk. 3 1/2 ’ ’ disk 

Melder du et medlem ind skal 
han/hen selv skrive dit navn og 
rnedlemnr. på bagsiden af Girokorte 
samt hvad du ønsker som præmie. 













Liste af programtitler 
i SVIBIB : 



SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POST GIRONR. er: 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Matte 
Mc scroll , Rarndis , Renter eg , 
Rulleteks , Screen Rig , Sdump.rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn. , Periode 


Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 
tydeligt helst BLOKBOGSTAVER. 


PRISER 

Bånd - 25kr. 
5.25" Di sk - 25kr. 
Pris pr. program - 10kr. 
Pris pr. programpakke - 15kr. 
Udi ist ri i ng a-f program - 5kr. 


P r o g r am pakke r n e er 1 avet på den 
måde at man 1oader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp a-f en meny 
hvilket program man ønsker at køre 
derefter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når- I bestiller programpakker 
at s k rive hvilken katarog i I 

ønsker det pågældende nr. -fra. 

Programmerne besti 11 es hos: 

Per Under lien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på. samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For de programmer der optages- i 
SVI BIB. 


Spi l : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hel 1, 
Kalaha, Skyd nu, Oi1 

Spil pakker : 

Nr. 1 : Male , Pyramide , Labyrant 
Nr.’ 2 : Pusle , Attack , Roulette 
Nr. 3 : Flight , Sur , War 
Nr. 4 : Mons , Hopper , Star 

Nr. 5 : Moon , Myre , Slange 

Nr. 6 : Robot , F'engo , Snowball 
Nr. 7 : Danmark , Frogger 
Nr. S : Skyttepro , Lernona 

Musik pakker : 

Nr. 1 : Rock mus ik 9 numre 

Nr. 2 : Rock mus ik 9 numre 

Nr. 3 : Musik 9 numre 

Nr. 4 : Lyd Kim , Sound Kim , Orgel 


Andet pakker : 

Nr. i : Rio , Lys , Ghost , Børge 
Symtri , Grafik 


Kun til disk 

Budget pro. , Dbase i no.1 , Grafen 

Tegnepro. , Telefonpro. 



Hi 1 sen Per 
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2 ^ 


DIRECTORY FOR 
TAPEFANS. 

Her er et "lille" program der ved 
ind- og afspilning af basicprogram- 
mer kan holde lidt styr på indhol¬ 
det. Programmet er aldeles ikke 
selvforklarende. Men som en hjælp 
kan man bare trykke på funktions¬ 
tast Fl, så får du brugsanvisningen 
som så forhåbentligt gi’r den hjælp 
der skal til. 

Programmet poker informationen ind 
på de linier der ser "tomme" ud, og 
ved udlæsning peeker den så ud igen 
til skærm. Hvis du er lidt doven 
kan du undlade hj ælpeteksten 1 i n i - 
erne fra 1000 til 1080 . 

Det var forudset, at programmet og¬ 
så skulle understøtte mask i nprogram 
mer, men så fik jeg en disk og fik 
ikke gj ort mere ved det. Men den 
kvikke prøver sikkert med en udvi¬ 
delse. 

Cementkogeren. 


10 ’ (C) PETER WHITE 860323 

20 DATA , , 


9 

30 DATA 


9 


50 C0L0R15,i,12:KEY0N 
60 DIM F*(20),C*(20):SCREEN0:WIDTH 39 
70 Z=6:P=32806!:REST0RE 
80 F0RX=0T02Q:READF*(X):NEXT 
90 F0RX=0T020:READC$(X):NEXT:L0CATE0,0 
100 PRINT"TAPE ";F*<0):L0CATE14,0:PRINT 
"NR PROGRAM TÆLLER",,,"DIRECTORY",, , 
,"SIDE " jC$(0) 

110 KEY1,"HJÆLP":KEY2,"INIT":KEY3,"SAVE 
■:KEY4,"7L0AD":KEY5,"INSERT" 

120 F0RX=1T020:LOCATE 14,X:PRINTUSING"# 
#" 5 X 

130 L0CATE19,X:PRINTF$(X) 

140 L0CATE28,X:PRINTC$(X) 

150 NEXTX 

160 F0RX=1T05:KEY(X)0N:NEXTX 
170 G0SUB420 


180 0N KEY G0SUB 1000,440,620,710,200 
190 G0T0180 

200 L0CATE0,21:INPUT "NR"JX:Z=8:P=32795 

I 

210 IFX>20 THEN GOTO 200 
220 IF X=0 THEN GOT0370 
230 L0CATE17,X:PRINT"*" 

240 G0SUB 420!INPUT"PR0GRAM"5 F*(X) 

250 IF LEN <F*(X))>6 THEN 230 

260 LQCATE19,X:PRINTF*(X)!G0SUB560 

270 L0CATE26,X!PRINT 

280 G0SUB420;PRINT"7LQAD":L$=INPUT*(i) 

290 IF L*=" “ OR L*="B" OR L*=“C" OR L* 

="b" OR L*="c" THEN GOTO 300 ELSE 280 

300 L0CATE 26,X:PRINTL* 

310 P0KE 32812!+<X*9),ASC(L*) 

320 G0SUB 420:INPUT"TÆLLER")F*(X) 

330 LOCATE 28,X:PRINTF*(X) 

340 G0SUB550 

350 L0CATE17,X:PRINT“ " 

360 G0SUB 420;RETURN 70 

370 G0SUB 420: INPUT 11 TAPE ";F*(0) 

380 L0CATE 5,0!PRINTF$(0)IGOSUB 560 
390 GOSUB 420:PRINT"SIDE "5:S*=INPUT*(i 
) 

400 F*(0)=S*:GOSUB 550 

410 LOCATE 5,4:PRINTC$(0):RETURN 70 

420 LOCATE 0,21:PRINT SPC(38) 

430 LOCATEO,21:G0SUB690:RETURN 
440 BEEP 

450 F0RV=32805!T032985!STEP9 

460 F0RW=0T07 

470 POKE(W+V),32 

480 NEXTW:NEXTV 

490 F0RV=32999!T033219!STEP11 

500 F0RW=0TQ9 

510 POKE(W+V),32 

520 NEXTWlNEXTV 

530 CLS 

540 RETURN70 

550 Z=10:P=32987! 

560 IF LEN(F*(X)) >Z THEN F*(X)=LEFT*(F 
*(X),Z) 

570 FOR Y=i TO Z 

580 IF LEN(F*(X))=Z THEN GOTO 600 
590 F$(X)=F*(X)+" ":G0T0580 
600 S=ASC(MID*(F*(X),Y,1)) 

610 POKE P+((Z+1)*(X+1))+y,s:nexty:retu 
RN 

620 LOCATEO,21:PRINT"SP0L TILBAGE TIL " 
;C*(1)," TRYK ENTER"!. 

630 T*=INPUT*(1) '.G0SUB420 

640 LOCATEO,21:PRINT"SAVING: H JF*(1) 

650 G0SUB690 

660 CSAVE "DIR #1",2:G0SUB420:F0RA=1T05 
670 PRINT"READY":G0SUB700:G0SUB420 
680 G0SUB700:NEXTA:RETURN 
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690 BEEP:RETURN 
700 F0RT=1T099:NEXTT: RETURN 
710 INPUT"NR"}X:IFX=0THEN710 
720 L$=LEFT$(F$(X), 6 ) 

730 CLS:PRINT"DU SKAL SPOLE HEN TIL: "5 
C*(X),,,,,“FOR AT LOADE: "jL*,,,,,:60SU 
B790 

740 PRINT“NAR DU HAR 6J0RT DET, TRYK EN 
TAST":T*=INPUT$(1 >:PRINT,,,»06 START B 
ANDOPTAGEREN”,,,,:G0SUB790 
750 PRINT“DIT PROGRAM BLIVER LOADET" 

760 S$*RIGHT»(F*(X),1)+"L0AD"+CHR$<34)+ 
L$+CHR$(34)+CHR$(13)+"RUN"+CHR$(13) 

770 CLOAD 
780 RETURN 

790 F0RT=0T0555:NEXTT:RETURN 
1000 ! HJÆLP 

1010 CLS:PRINT“DU HAR BENYTTET HJÆLP !“ 
,,,"PROGRAMMET BENYTTES TIL AT HOLDE ST 
YR PA DINE BANDEDE PROGRAMMER.",,,"HVI 
S DU TRYKKER PA F2 (INIT) SLETTES ALL 
E DINE DATA, BRUGES NAR DU TAGER ET NYT 
BAND I BRUG.■ 

1020 PRINT,,"F3 (SAVE) GEMMER DIN INDHO 
LDSFORTEGNEL-SE, HUSK DET, HVIS DU HAR 
LAVET RETTEL-SER, OG INDEN DU LOADER ET 
PROGRAM.",,,"F4 (7L0AD) LOADER DET DU 
HAR VALGT. 11 

1030 PRINT,,"F5 (INSERT), HER INDTASTER 
DU NYE DATA I DIN INDHOLDSFORTEGNELSE. 
0=TAPE-NR.”,,,"NAR DU HAR LÆST DENNE S 
IDE FÆRDIG, TRYKEN TAST." 

1040 T$-INPUT$( 1 ):CLS 
1050 PRINT"HVER GANG DU BRUGER 7L0AD EL 
LER INSERT,VIL PROGRAMMET SPØRGE OM ET 
NR, OG DET ER DIN INDGANG TIL DET AKTUE 
LLE PROGRAM",,“DU MA SOM PROGRAMNAVN BR 
UGE OP TIL SEKSTEGN OG VED TÆLLERPOSITI 
ONEN OP TIL 10 TEGN, OGSÅ ALFANUMERISKE 

II 

I 

1060 PRINT,,"MEN VÆR SA FORNUFTIG AT BR 
UGE NAVNE,DERSIGER NOGET OM INDHOLDET. 
THLLERPOSITI-ONEN KAN SA BRUGES TIL AT 
FORTÆLLE OM LÆNGDEN AF PROGRAMMET.",,, 
"F.EKS.: DIR # 1 , FRA 10-20, SA RISIKERE 
RDU IKKE AT OVERSPILLE ET EVENTUELT AN¬ 
DET PROGRAM." 

1070 PRINT,,"LAV OGSÅ ET PÆNT MELLEMRUM 
MELLEM PRO- GRAMMERNE, SA DU HAR PLADS 
NOK VED EN UDVIDELSE AF PROGRAMMERNE. 
"» 1 ,"RETUR TIL PROGRAM, TRYK EN TAST." 
1080 T$=INPUT$(1):CLEAR:GOTO 60 
1090 FOR M=32768! TO 33500! 

1100 PRINTM; H -"|PEEK(M) 5 }HEX$(PEEK<M 
));"="5CHR$(PEEK(M)) 

1110 FOR T=0T025INEXTT 
1120 NEXT M 


DX7 RANDOM PATCH 
GENERATOR FOR 
MSX 2 & SFG UNIT. 

10 'DX7 Random patch generator for 
20 'MSX2 & SFG unit 
30 ' (C) by Gabriel Landini 1988 

40 ' 

50 'Fodnote af Johnny B. 

60 ' 

70 'Denne rutine generere en lyd 
80 'til din tilsluttede DX7 og kan 
90 'regenerere udfra de samme 
100 'værdier 
110 ' 

120 'Hvis nogen kan opstille 
130 'programmet Grafisk så ville 
140 'det jo være en god ide 
150 'Det skul le være således at 
160 ‘lydkurven bl iver Grafisk 
170 'tegnet og man kunne gå ind 
180 'med Cursor eller Mus og 
190 'ændre kurven således at 
200 'værdierne så bl iver genere- 
210 'ret udfra den nye kurve 
220 ' 

230 'Kontakt mig hvis du har en 
240 'eller et program der evt 
250 'omskrives til formålet. 

260 'Hej fra Johnny B 
270 ‘ 

280 POKE &H9FF4,PEEK(&HFC4A):POKE & 
H9FF5,PEEK(&HFC4B) 

290 CLEAR 40,&H9BFF:BLOAD "d":DEFIN 
T A-Z 

300 FOR A=&H9FF6 TO &H9FFF:POKEA,0: 
NEXT:POKE &H9FF1.0 
310 DEFUSR=&H9C00 
320 POKE &H9FFC, 2 : A-USR (t)) 

330 POKE &H9FFC,1 

340 CLS .-PRINT SPC(30) "EGl kates" :PRI 
NT:PRINT:PRINT:FOR X=1 Tf) 4 
350 PRINT" Rate ",-X; 1 upper limi 

t (0-99)::INPUT R1(X) 

360 IF RI (X) >99 OR R1-(X)!0 THEN GOS 
UB 1560:GOTO 350 

370 PRINT" Rate ";X;"Mower limi 

t (0-99):",:INPUT R2(X) " 

380 IF R2(X)>R1(X) OR R2|X)<0 THEN 
GOSUB 1560:GOTO 370 
390 PRINT:NEXT 

400 CLS:PRINT SPC(30)"E(T Levels":PR 
INT:PRINT:PRINT:FOR X-l TO 4 
410 PRINT" Level ";X;" upper lim 
it (0-99):INPUT L1(X) 

420 IF LI(X)>99 OR LI(X) <0 THEN GO 
SUB 1560:GOTO 410 
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430 PRINT" Level ";X;" lower lim 
it (0-99):INPUT L2(X) 

440 IF L2(X)>L1(X) OR L2(X) <0 THEN 
GOSUB 1560:GOTO 430 
450 PRINT:NEXT 

460 CLS:PRINT SPC(22)"Operators lev 
el & frequency":PRINT:PRINT:PRINT 
470 PRINT " Operators output upp 
er limit (0-99)INPUT Q1 
480 IF Q1>99 OR Ql< 0 THEN GOSUB 156 
0:GOTO 470 

490 PRINT " Operators output low 
er limit (0-99):";:INPUT Q2: 

500 IF Q2 >Q1 OR Q2<0 THEN GOSUB 15 
60:GOTO 490 

510 PRINT:PRINT " Coarse frequen 
cy ratio upper 1imit (0-31):";:INPU 
T F1 

520 IF F1 >31 OR F1<0 THEN GOSUB 15 
60 .-GOTO 510 

530 PRINT" Coarse frequency rati 
o lower limit (0-31):";: INPUT F2 
540 IF F2 >F1 OR F2< 0 THEN GOSUB 15 
60:GOTO 530 

550 PRINT:PRINT" Fine frequency 
ratio upper 1imit (0-99):";:INPUT F 
3 

560 IF F3 >99 OR F3<0 THEN GOSUB1560 
:GOTO 550 

570 PRINT" Fine frequency ratio 

lower limit (0-99):";:INPUT F4 

580 IF F4>F3 OR F4 <0 THEN GOSUB156 

0:GOTO 570 

590 FOR X-l TO 4 

600 RU(X)=R1(X)+1:LU(X)=L1(X)+1 

610 RL(X)-R2(X):LL(X)=L2(X) 

620 NEXT 

630 QU-Q1+1:QL=Q2:FU=F1+1:FL=F2:FA= 

F3+1:FB-F4 

640 FOR X-l TO 4 

650 RU(X)=RU(X)-RL(X) 

660 LU(X)=LU(X)-LL(X) 

670 NEXT 

680 X-RND(-TIME) 

690 QU-QU-QL:FU-FU-FL:FA-FA-FB 
700 FOR X-l TO 6:FOR Y=1 TO 4 
710 R(X,Y)-((RND(1)*RU(Y))+RL(Y)) 
720 L (X, Y) = ((RND(1)*LU(Y))+LL(Y)) 
730 NEXT 

740 Q(X)=((RND(1)*QU)+QL) 

750 F(X)=(RND(1)*FU)+FL 
760 FF(X) - (RND(1)*FA)+FB 
770 NEXT 

780 AL-INT(RND(1)*32)+l 
790 CLS:PRINT" DX 7 Random patch 
generator" 


800 LOCATE2,2:PRINT"Algorithm:";AL; 
" (not transmitted) 

810 LOCATE 0.4:PRINT " EG rate (RI 

-R4)":PRINT 

820 FOR X-l TO 6 

830 PRINT "Op.";X;" : " ; 

840 FOR Y=1 TO 4 

850 PRINT USING" ##" ;R(X,Y); 

860 NEXT:PRINT 

870 NEXT 

880 ZZ-24:Z-4 

890 LOCATEZZ.Z:PRINT" EG level (LI 
-L4) " 

900 FOR X-l TO 6 

910 LOCATEZZ,Z+2:PRINT"Op.";X;":"; 

920 Z-Z+l 

930 FOR Y-l TO 4 

940 PRINT USING" ##";L(X,Y); 

950 NEXT:PRINT 
960 NEXT 

970 ZZ-ZZ+24:Z=4 

980 LOCATEZZ-1,Z:PRINT"Output level 
":Z=Z+2 

990 FORX-1 TO 6 

1000 LOCATEZZ.Z:PRINT "Op.";X;":";Q 
(X) 

1010 Z-Z+l:NEXT 
1020 ZZ-ZZ+15:Z=4 

1030 LOCATEZZ.Z:PRINT" Freq. ratio" 
:Z-Z+2 

1040 FOR X-l TO 6:KF(X)=F(X) 

1050 'DX panel system 

1060 IF F(X)-0 THEN FG! (X) = (FF i(X)/ 

2)+50:KF(X)=1:ELSE FG!(X)=FF(X) 

1070 TF!(X)-(FG!(X)/100)*KF(X)+F(X) 
1080 NC(X)-INT(TF!(X)):NF!(X)=(TF!( 
X))-NC(X) 

1090 LOCATEZZ.Z:PRINT "Op.";X;":";U 
SING" ##";NC(X);:PRINTUSINGNF 
! (X) 

1100 Z-Z+l:NEXT 

1110 LOCATE 0,20:PRINT" 

*** BUSY TRANSMITTING EXCLUSIVE MI 
DI MESSAGE ***" 

1120 C=0:FOR X-6 TO 1 STEP-1:FOR Y= 
1 TO 4 

1130 POKE &HA020.&HF0 
1140 POKE &HA021.&H43 
1150 POKE &HA022.&H10 
1160 POKE &HA023.&H0 
1170 POKE &HA024,C ' 

1180 POKE &HA025,R(X,Y) 

1190 POKE &HA026,&HF7:A-USR(0) 

1200 C-C+l:IF C=4 THEN C-21 
1210 IF C-25 THEN C-42 
1220 IF C-46 THEN C-63 
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1230 IF C-67 THEN C-84 

1240 IF C-88 THEN 0105 

1250 NEXT:NEXT 

1260 04:FOR X-6 TO 1 STEP-1:F0R Y= 
1 TO 4 

1270 POKE &HA024,C 
1280 POKE &HA025, L (X, Y) 

1290 A-USR(O) 

1300 OC+l.-IF C-8 THEN 025 
1310 IF 029 THEN 046 

1320 IF 050 THEN 067 

1330 IF 071 THEN C-88 

1340 IF 092 THEN 0109 

1350 NEXT:NEXT 

1360 016: FOR X-6 TO 1 STEP-1 
1370 POKE &HA024,C 
1380 POKE &HA025,Q(X) 

1390 A-USR(O) 

1400 C-C+21:NEXT 

1410 C=18:FOR X=6 TO 1 STEP-1 

1420 POKE &HA024,C 

1430 POKE &HA025,F(X) 

1440 A=USR(0) 

1450 C=C+21:NEXT 

1460 C-19:FOR X-6 TO 1 STEP-1 

1470 POKE StHA024, C 

1480 POKE &HA025,FF(X) 

1490 A=USR(O) 

1500 C-C+21:NEXT 

1510 LOCATE 7,20:PRINT"WouId you 11 
ke to generate a new set of values 
(y/n) ? :A$-INPUT$(1) 

1520 PRINTAS:IF A$="n" OR A$="N" TH 
EN END 

1530 PRINT " Would you like t 

o use the same limits (y/n) ? ";:Å$ 
-INPUTS(1) 

1540 PRINT A$:IF A$-"y" OR A$="Y" O 
R A$-CHR$(13) THEN GOTO 590 
1550 GOTO 340 

1560 PRINT:PRINT'That Is not a val i 
d respons©." 

1570 PRINT"Re-enter, piease." 

1580 RETURN 



10 DATA F3,CD,38,1,32,FF,9F,5F,E,O, 
6,0,21,C5,FC,9,56,21,C1,FC,9,6,4,7E 
, 28,12,6,0,79, F, F, AB, E6 , CO, AB, D3, A8 
,7A,E6,FC,BO,32,FF,FF,7B,E6,FC,Bl,D 
3,A8,C5,D5,CD,60,9C,Dl,C1,28,67,4,7 
8,FE,4,38,DB 

20 DATA 20,10,79,F,F,AB,E6,CO,AB,D3 
,A8,7A,32,FF,FF,7B,D3,A8,C,79,FE, 4, 
38,Bl,3A,FF,9F,D3,A8,18,16,21,70,9C 
,11,80,O,6.6,1A,BE,CO,23,13,10,F9,C 
9,4D,43,48.46,4D,30,CD,D2,O,CD,CO,O 
,21,8E,9C,6,14 

30 DATA 7E,CD,A2,O,23,10,F9,CD,9F,O 
,C3,7C,9C,4E,6F,74,20,46,6F,75,6E,6 
4,20,53,46,47,20,55,6E,69,74,20,21, 
3E,O,32,FE,9F,3A,FC,9F,FE,O,CA,F2,9 
C,FE,1,CA,30,9D,FE,2,CA,61,9D,3A,FF 
,9F,D3,A8,C9,3E,0 

40 DATA 32,F9,9F,3A,FA,9F,FE,13,C8, 
CD,61,9D,3E,FF,32,F9,9F,C9,3E,15,32 
,F6,3F,C9,3A,F6,3F,CB,4F,CA,D9,9C,3 
A,F5,3F,C9,3A,F6,3F,CB,47,CO,C3,E5, 
9C,32,F5,3F,C9,CD,BF,9C,3A,F9,9F,FE 
,FF,C8,CD,D3,9C,21,20 
50 DATA AO,22,F2,9F,CD,D9,9C,FE,FO, 
C2,4,9D,77,23,CD,D9,9C,77,FE,F7,CA, 
2A,9D,FE,FF,CA,2A,9D,FE,F8,CA,E,9D, 
FE,FE,CA,E,9D,23,C3,E,9D,22,FO,9F,C 
3,55,9D,CD,BF,9C,3A,F9,9F,FE,FF,C8, 
CD,D3,9C,21,20,AO,22,F2 
60 DATA 9F,CD,E5,9C,7E,CD,EE,9C,FE, 
F7,CA,52,9D,23,C3,42,9D,C3,55,9D,3E 
,FF,32,FB,9F,3A,FF,9F,D3,A8,FB,C9,3 
A,FF,9F,D3,A8,0,0,0,0,0,0,0,0,0,0,0 
,0,0,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
70 DATA O,O,O,O,O,O,O,O,O,O,3E,13,3 
2,FA,9F,C9,53,45,4D,20,5C,5C,20,44, 
4F,20,4E,4F,54,20,4D,41,4B,45,20,41 
,20,43,4F,50,59,20,3A,20,5C,5C,43,4 
F,50,59,21,26,3,2E,4,CD,C6,O,6,IB,2 
1,94,9D,7E 

80 DATA CD,A2,O,23,10,F9,6,5,21,AF, 
9D,CD,9F,O,BE,C2,D9,9D,23,10,F6,C3, 
8B,9D,C3,O,O,F3,CD,38,1,FF,FF,O,O,F 
F,FF,O,O,FF,FF,O,O,FF,FF,O,O,FF,FF, 
O,O,FF,FF,O,O,FF,FF,O,O,FF,FF,O,O 
90 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 

fil 

1050 BSAVE"D",&H9C00,&H9DFF 
1060 'D er filen du skal bruge i 
1070 'DX7 Random programmet for 
1080 1 at overføre via SFG modulet 
1090 'Hej Johnny B. 
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LINKE PROGRAM 

10 ******************************* 
20 '* YAMAHA MUSIC COMPOSER II * 

30 '* FILE PART LINKER ver 2.3 * 

40 '* for MSX2 BASIC * 

50 '* (c) 1988 by * 

60 1 * Gabriel Landini * 

70 '* JAPAN * 

80 '****************************** 
81 ' 

82 'Med dette program kan du 

83 '1inke parter fra composer 

84 'direkte i Basic 

85 'Hej Johnny B 

86 ' 

90 ’ AD*= J. oad address : cF$=f i lename 
: EP-extract part No. 

100 'L^length of source file : I=co 
unter : Xl$, X2$, X3$=data :PA=part 
No. 

110 'PB()=part begin address : PE() 
»part end address: TR=end trap 
120 'TL=length of linked file: BD$= 
length of data: BL$ sa low byte : BH$-h 
igh byt© 

130 CLEAR 100,&HAFFF: TR=0:DEFINT A 
-Z 

140 DEF FNA$=HEX$(ASC(INPUT$(1,1))+ 
ASC(INPUT$(1,1))*256) 

150 AD-&HB000 
160 CLS 

170 PRINT" PART LINKER FOR 

YAMAHA MUSIC COMPOSER II FILES 
v.2.3" 

180 FILES " * .cmp":PRINT:PRINT 
190 INPUT"Extract part from file >. 
CMP<:";SF$ 

200 CF$=SF$+".cmp" 

210 INPUT"Extract part No. (1-8):"; 
EP 

220 GOSUB 530 :' offset bload addre 

ss & bload 

230 PA m 0 

240 PB(1)=50+AD 

250 FOR I-AD-1 TO AD+L-2 STEP 3 
260 X1$=HEX$(PEEK(I)):X2$=HEX$(PEEK 
(1+1)):X3$=HEX$(PEEK(1+2)) 

270 PRINT HEX$(I),Xl$,X2$,X3$,I-AD+ 
1; 

280 IF X1$*="FF" AND X2$="0" AND X3$ 
“"0" THEN PA-PA+1:PRINT " End of p 
art ";PA: PE(PA)“1+2:PB(PA+1)=1+3 
290 PRINT 
300 NEXT 


310 FOR ZZ-1 TO 8 

320 PRINT "Part";ZZ;"starts in ";HE 
X$(PB(ZZ)-AD);" ends in ";HEX$(PE(Z 
Z)-AD);" and is";PE(ZZ)-PB(ZZ)+1;"b 
ytes long >";(PE(ZZ)-PB(ZZ)-2)/3;"< 
events" 

330 NEXT 

340 IF EP-0 OR TR=1 THEN END 

350 BSAVE "tempi.bin",PB(EP),PE(EP) 

360 PRINT 

370 INPUT"Link to file >.CMP<:";LF$ 
380 CF$-LF$+".cmp" 

390 PRINT 
400 GOSUB 530 
410 PRINT 
420 EE-L 

430 BLOAD "templ.bin", EE-3-PB(EP)+A 
D 

440 PRINT "linked.cmp";",";0;",";PE 

(EP)-PB(EP)+EE-2+7 

450 TL=(PE(EP)-PB(EP)+EE-2) 

460 BD$=RIGHT$("000"+HEX$(TL-33),4) 

:BL$=RIGHT$(BD$,2) 

470 POKE 48+AD,VAL("&h"+BL$) 

480 BH$=LEFT$(BD$,2):POKE 49+AD,VAL 
("&h"+BH$) 

490 BSAVE "linked.cmp",AD,TL+AD-1 
500 KILL "templ.bin" 

510 EP=8:TR=1 :L=TL, 

520 GOTO 230 

530 OPEN CF$ FOR INPUT AS #1 

540 L=LOF(1):PRINT CF$+" is ";L;"by 

tes long":L=L-7 

550 B-ASC(INPUT$(1,1)) 

560 IF B<>254 THEN PRINT"Bad file m 
ode":GLOSE:END 
570 PRINT:RA$=FNA$ 

580 PRINT"Start:Sch";RA$; 

590 PRINT" End:&h";FNA$; 

600 PRINT" Exec:&h";FNA$:PRINT 
610 CLOSE 

620 BLOAD CF$,(AD-VAL("&h"+RA$)) 

630 RETURN 
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3 PROGRAMMER FRA 
MATTHIAS SVERIGE 

Det ser ud til at vore Svenske 
kolleger er de mest aktive idet 
jeg igen har f&et noget tilsendt 
fra hinsidan denne gang fra 
Matthias Gustafsson Horred Sverige 
Det drejer sig om 3 programmer: 
Dragon-demo (en lille drage-movie) 
Iron Maiden demo (Hard Rock) 
Scarborough Fair (3 stemmig lyd) 
Jeg takker Matthias mange gange 
og en lille hilsen er også gået 
til Sverige, det kan han jo så 
fortælle sine kammarater om og i 
andre kan finde ud af det ved at 
sende mig noget som i har lavet på 
Los Computer 

Fra Tonny Marcher i Esbjerg har 
jeg også fået tilsendt nogle pro¬ 
grammer, det drejer sig om tekst¬ 
behandling samt database og løn¬ 
programmer , disse prg kan du 
erhverve hos Muco-bib eller hos 
MSX-BIB det drejer sig om ialt 
3 programmer til sædvanlig pris 
Også en stor tak til Tonny flot 
arbejde, 

Nu til Matthias's 3 programmer 

Hej fra Johnny B Musik 
Lindevænget 237 
8600 Silkeborg 


1 ' EN JULKLAPP TILL SYNTAXEN IFRAN 

2 1 GARF XXX alias MATTIAS GUSTAFSS 
ON 

3 1 HEJ TIL JOHNNY B.!!! 

4 1 

10 ON STOP GOSUB 1230:STOP ON 
20 GOSUB 1150 
30 COLOR 1,15,15 
40 SCREEN 2,,0:X-0:Y-0 
50 ' border 

60 FOR A=1 TO 8:READ B:IF B=1 THEN 
X=X+1:Y-Y+1:GOTO 90 
70 LINE(X,Y)-(255-X,191-Y),4,B 
80 X=X+1:Y=Y+1 
90 NEXT 

100 DATA 0,0,1,0,1,0,1,1 

110 ' space + stars 

120 LINE (X+l,Y+l)-(255-X-l,191-Y-l) 

, 1, BF 


130 FOR Y=9 TO 182STEP8 
140 FOR X=9 TO 246STEP8 
150 B=INT(RND(1)*20) 

160 IF B< 2 THEN PSET(X,Y),15 
170 NEXT X:NEXT Y 
180 1 2 3 4 dragon 

190 PRESET(170,80):FOR A-l TO 64:RE 
AD X,Y,C:LINE-STEP (X,Y),C:NEXTA 
200 DATA -10,10,2,-5,10,2,0,10,2,5, 
10,2,10,5,2,5,7,2,0,5,2,-5,2,2,-10, 
0,2,-5,5,2,0,2,2,5,2,2,2,-2,2,2,0,2 
,2,2,2,2,0,2,2,-2,2,10,-3,2,2,-5,2, 
2,0,2,0,10,2,-2,2,2,0,2,2,2,2,2,2,0 
,2,2,-2,2,0,-2,2 

210 DATA 2,0,2,2,2,2,2,0,2,2,-2,2,0 
,-5,2,-5,-10,2,0,-10,2,6,0,2,20,13, 
2,2,0,2,2,-2,2,-5,-3,2,-30,-40,2,0, 
-5,2,-1,-7,2,-5,-5,2,2,-2,2,3,-7,2, 
5,-5,2,-2,0,2,-5,-5,2,-3,-7,2,-2,-2 
,2,-2,0,2,-2,2,2,-2,0,2,-2,-2,2,-2, 
0,2,-2,2,2 

220 DATA -3,10,2,-10,3,2,-5,5,2,0,5 
,2,5,5,2,10,0,2,10,-2,2,-3,5,2 
230 PAINT(180,100),2 
240 1 eyes 

250 CIRCLE(170.57),4,15,,,2 
260 CIRCLE(173,57),4,15,,,2 
270 PAINT(170,57),15 
280 PAINT(173,57),15 
290 ' mouth 

300 LINE(170,75)-(178,69),6 
310 LINE(178,69)-(174,75),6 
320 LINE(174,75)-(170,75),6 
330 PAINT(173,74),6 
340 ' teeth 

350 LINE(153,79)-(156,82),15,BF 
360 LINE(158,79)-(161,82),15,BF 
370 ' nose 

380 CIRCLE(154,71),1,1:PAINT(154,71 

) ,1 

390 CIRCLE(159,71),1,1:PAINT(159,71 

) ,1 

400 ' wings 

410 LINE(18Q,90)-(170,110),7 
420 LINE(170,110)-(175,115),7 
430 LINE(175,115)-(185,120),7 
440 LINE(185,120)-(195,123) ,7 
450 LINE(195,123)-(179,91) ,7 
460 PAINT(180,100) ,7 
470 LINE(177,102)-(183,108),1 
480 LINE(177,110)-(183,116) ,1 
490 LINE(183,116)-(188,117),1 
500 ' dot on stomack 
510 CIRCLE(160,105),1,1 
520 ' legs 





30 


3VNTAX Argang é=> nr.S 


530 LINE(184,140)-(184,135), 1 

540 LINE(184,135)-(180,132), 1 

550 LINE(180,132)-(170,130),1 

560 ' sprites 

570 RESTORE 800 

580 FOR B-l TO 8 

590 READ A$ 

600 B$“CHR$(VAL("&b"+A$j) 

610 C$“C$+B$ 

620 NEXT B 

630 SPRITES(2)=C$ 

640 RESTORE 710 
650 FOR E“1 TO 8 
660 READ R$ 

670 U$=CHR$(VAL("&b"+R$)) 

680 0$“0$+U$ 

690 NEXT E 

700 SPRITES(1)=0$ 

710 DATA 00000000 
720 DATA 00101000 
730 DATA 01101100 
740 DATA 01101100 
750 DATA 01101100 
760 DATA 00101000 
770 DATA 00000000 
780 DATA 00000000 
790 ' 

800 DATA 00000000 

810 DATA 11100111 

820 DATA 11100111 

830 DATA 00011000 

840 DATA 00111100 

850 DATA 00011000 

860 DATA 00100100 

870 DATA 01011010 

880 PUT SPRITE 1,(168,53),1 

890 PUT SPRITE 2,(50,50),11 

900 X=50:Y=50:XX=168:YY=53:Q=168:U= 

53 

910 A-STICK(D) 

920 IF A-l THEN Y-Y-4 
930 IF A“2 THEN Y=Y-4:X=X+4 
940 IF A=3 THEN X=X+4 
950 IF A=4 THEN X“X+4:Y=Y+4 
960 IF A=5 THEN Y-Y+4 
970 IF A=6 THEN X=X-4:Y=Y+4 
980 IF A=7 THEN X=X-4 
990 IF A=8 THEN X=X-4:Y=Y-4 
1000 IF X>XX THEN XX=XX+1 
1010 IF X<XX THEN XX=XX-1 
1020 IF Y>YY THEN YY=YY+1 
1030 IF Y<YY THEN YY-YY-1 
1040 IF XX>Q+2 THEN XX-XX-1 
1050 IF XX<Q-2 THEN XX-XX+1 
1060 IF YY>U+2 THEN YY=YY-1 


1070 IF YY<U-2 THEN YY=YY+1 
1080 PUT SPRITE1,(XX,YY),1 
1090 PUT SPRITE2,(X,Y),11 
1100 IF X< 9 THEN X=9 
1110 IF X>238 THEN X-238 
1120 IF Y>174 THEN Y-174 
1130 IF Y< 9 THEN Y-9 
1140 GOTO 910 

1150 SCREEN 0:COLOR 15,4,4 
1160 CLS:KEY OFF 

1170 PRINT" TILL S Y N T A 
X" 

1180 PRINT:PRINT:PRINT" Från Ma 

ttias.G":PRINT:PRINT:PRINT 
1190 INPUT"Joystick/Keyboard (J/K)" 
; D$ 

1200 IF D$="J"ORD$“"j"THEN D“1 
1210 IF D$="K"ORD$="k"THEN D=0 
1220 RETURN 

1230 SCREEN 0:COLOR 15,4,4 

1240 PRINT"Do you want to stop..(Y/ 

N) 

1250 A$=INKEY$:IFA$=""THEN BEEP :GOT 
O 1250 

1260 IFA$="Y"ORA$="y"THEN KEYON:END 
1270 IFA$="N"ORA$="n"THENRUN 

Se dragens øjne følge cursoren 
rundt på skærmen i den stjerneklare 
luft 

Nu til HARD ROCK 

0 WIDTH40 

1 ' Iron Maiden 

2 1 -—--—---- 

3 ' Made by Garf xxx(Rockin all ove 
r) 

4 1 

5 ‘ Greetings to all hardrock and 

6 ' computer-fans 

7 ' 

8 ' Apri1 1988 

9 • ------- 

10 COLOR6,1,1:SCREEN2 
20 DEFUSR-&H41:A=USR(0) 

30 FORl=0TO240 
40 READA$ 

50 VPOKEI,VAL(A$) 

60 VPOKE&H2000+I,&H71 
70 NEXTI 






3 1 SYNTAX Årgang <£z> nr.2 


80 DATA 231,165,165,164,164,164,164 
,164,32,112,216,140,38,243,6,140,1, 
3,6,12,24,49,98,196,129,192,96,48,2 
4,140,70,35,248,204,102,35,41,46,43 
,41 

90 DATA 224,160,160,160,160,32,32,1 
60,165,165,165,165,231,0,0,0,217,10 
8,54,27,13,7,2,0,143,192,96,48,159, 
0,0,0,241,3,6,12,248,0,0,0,168,40,4 
0,40,56,0,0,0,160,160,160,160,224,9 
6,32,0 

100 DATA 252,102,51,17,16,16,23,21, 

4,14,25,177,225,1,29,181,0,0,16,56, 

109,55,24,8,30,50,98,202,154,58,74, 

138,115,82,82,82,82,82,82,82,192 ,'96 

,48,152,204,230,179,153 

110 DATA 31,16,23,20,20,23,16,151,2 

39,38,227,1,1,225,33,225,199,101,53 

,29,77,113,89,77,20,20,20,20,28,0,0 

,0,229,69,5,5,7,3,1,0,24,55,109,56, 

16,0,0,0,74,42,154,194,126,0,0,0 

120 DATA 82,82,82,82,115,0,0,0,140, 

153,243,6,252,0,0,0,212,148,23,8,7, 

0,0,0,1,1,225,33,225,0,0,0,69,69,69 

,69,199,3,1,0,0,0,0,0,0,0,0,0,0,0 

130 VPOKE&H1800,0:VPOKE&H1801,1:VPO 

KE&H1802,2:VPOKE&H1803,3:VPOKE&H180 

4,4:VPOKE&H1805,5 

140 VPOKE&H1820,6:VP0KE&H1821,7:VPO 

KE&H1822,8:VPOKE&H1823,9:VP0KE&H182 

4,10:VPOKE&H1825,11 

150 VPOKE&H1840,12:VP0KE&H1841,13:V 

POKE&H1842,14:VPOKE&H1843,15:VP0KE& 

H1844,16:VPOKE&H1845,17 

160 VP0KE&H1846,18:VP0KE&H1847,19:V 

P0KE&H1848,20: VPOKE&H1860,21: VP0KE& 

H1861,22:VPOKE&H1862,23 

170 VPOKE&H1863,24:VPOKE&H1864,25:V 

POKE&H1865,26 : VPOKE&H1866,27 : VPOKE& 

H1867,28:VP0KE&H1868,29 

180 FORA=&H1806TO&H181F:VPOKEA,30:N 

EXT 

190 FORI=2047TO2175 
200 READA$ 

210 VPOKEI,VAL(A$) 

220 VPOKE&H2000+I,&HF1 
230 NEXTI 

240 DATAO,0,0,0,1,3,3,7,0,7,63,255, 
255,239,245,245,0,224,254,255,255,1 
91,183,215,0,0,0,0,128,192,224,224, 
14,13,0,25,88,120,88,88,243,247,0,2 
55,252,59,67,2,175,31,67,92,63,128, 
132,192,176,112,112,0,48,48,32,48 


250 DATA28,62,15,3,2,1,6,7,5,62,253 

,239,184,69,213,192,224,49,95,231,3 

,105,107,3,120,232,232,176,96,64,12 

8,0,7,3,1,0,0,0,0,0,192,206,199,85, 

81,46,30,14,35,199,198,38,172,24,24 

0,224,0,0,0,0,0,0,0,0 

260 VPOKE&H19OD,1:VPOKE&H190E,2:VPO 

KE&H19 0F,3:VPOKE&H1910,4:VPOKE&H192 

D, 5:VPOKE&H192E,6:VPOKE&H192F,7:VPO 
KE&H1930,8:^POKE&H194D,9:VPOKE&H194 

E, 10:VPOKE&H194F,11:VPOKE&H19 50,12: 
VPOKE&H196D,13:VPOKE&H196E,14:VPOKE 
&H196F,15 

270 FORI=&H1900TO&H190C:VPOKEI,0:NE 
XT 

280 OPEN"grp:"AS#1 
290 F0RI=1T02 

300 PRESET(15+1,150):PRINT#1,"GARF 
XXX PRESENTS IRON MAIDENPRESET(8 
0+1,160):PRINT#1,"The Trooper":NEXT 
I 

310 DEFUSR-&H44:A-USR(0) 

320 PLAY"04S1M3400T200D4" 

330 PLAY"D8D8D4D8D8D4D8D8D4D8D8D4D8 
D8D4D8D8" 

340 PLAY"C4F4C4D2D8D8D4D8D8D4D8D8D4 
D8D8D4D8D8D4D8D8" 

350 PLAY"C4F4C403B-2B-8B-8B-4B-8B-8 
B-4B-8B-8B-4B-8B-8B-4B-8B-8B-4B-8B- 
8" 

360 PLAY"04C4F4C4D2D8D8D4D8D8D4D8D8 
D4D8D8D4D8D8D4D8D8" 

370 PLAY"C4F4C4D2":GOT0330 

Og Nu til slut SCARBOROUGH FAIR 
0 1 Mattias Gustafsson 

I CLS:PRINT"SCARBOROUGH FAIR":PRINT 

II __________II 

5 PLAY"SI0M10000","S10M10000","SIOM 
10000" 

10 PLAY"03A2A04E2E03B.04C803BA2.R40 
4EGA2G","03E2EA2CGGGA2.R4CBA2B","03 
A2AA2ADDDE2.R4CED2E" 

20 PLAY"EF#DE2.R2AA2AG2EEDC","CA2B2 
.R2BC2DE2CCBA","ADF#E2.R2EA2DC2CCGA 

11 

30 PLAY"B8A8G2RA2ED2CBAG8A8A.","E2. 
RE2.F2GGF2E.","B2.RA2.B-2CD2DA2." 

40 PRINT"Isn’t he marvellous, Garf 
xxx-king of music? If you think s 
o then press space-bar" 

50 A$=INKEY$:IFA$=""THEN50 

60 IF A$*“" " THEN 10ELSE PRINT "I w 

ill never boast again!" 

70 END 
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Adresser i ngen er udskrevet af 
avispostkontoret. 

Vedvarende ADRESSEÆNDRING bedes 
meddelt til postvæsenet 
(•flytteblanketter -fås på posthusene) 



Danqer Mouse In Black Forest Chateau - 
(Alternative) menu-styret adventure m. 
grafik, i to dele 38. 

Soitfire 40 - (Mirrorsoft) flysimulator. 

’fIvv 2. verdenskrigs mest kendte jager¬ 
fly. take of f, landing, nedkæmp fjenden 
i luft duel 68. 

Basket Master - (Imagine) Bliv på 
tæerne mens du dribler bolden ned af 
banen med modstanderen lige i hæl - 
ende. med en rolig hånd og et sik¬ 
kert' éjemål kast bolden mod kurven. 
Forsvar din zone. tackle modstand¬ 
eren. f d Ig tiden’, léb. soring og 
dunk bolden gennem nettet, s i dine 
bevægelser i slow-motion gentagelse. 

For 1/2 pers, ' 128. 










